假如編了個VB6的程序叫 A.exe ，有個第三方可執行軟件叫 B.exe ，存于C:\Test 文件夾下。問題如下：1. 如何編寫A，來檢查B是否已經運行，如果B沒運行就運行B?2. 如何編寫A，來檢查B是否已經運行，如果B運行了就關閉B?3. 如何編寫A，在B由A運行后，來回調整A或B的界面處于前臺？4. B支持鍵盤快捷命令，如何編寫A的鍵盤命令，來操作B？5. 計算機的基本信息。如名稱，IP地址，時間等。在VB6中用什么命令得到？希望能有例句，在這里先謝謝各位高人！！！

熱心網友

運行的命令：shell("c:\b.exe")1.根據你的第三個問題，B程序應該有界面吧，你可以通過Api函數“hWnd=findWindow(0,"窗口標題")”來判斷是否已運行。詳細參數及聲明方法另見vb6api瀏覽器。2.同上題，關閉可以用postmessage hWnd,wm_close3.ShowWindow hWnd,sw_normal4.SendKeys "^a" 發送鍵盤Ctrl+A5.時間就直接用Time變量就可以，msgbox Time6.在工程屬性里有程序圖標設置，或者可以用程序資源編輯器修改

熱心網友

6。獲取主機名稱和IP用以下函數Option Explicit Public Const WS_VERSION_REQD = &H101 Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF& Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF& Public Const MIN_SOCKETS_REQD = 1 Public Const SOCKET_ERROR = -1 Public Const WSADescription_Len = 256 Public Const WSASYS_Status_Len = 128 Public Type HOSTENT hName As Long hAliases As Long hAddrType As Integer hLength As Integer hAddrList As Long End Type Public Type WSADATA wversion As Integer wHighVersion As Integer szDescription(0 To WSADescription_Len) As Byte szSystemStatus(0 To WSASYS_Status_Len) As Byte iMaxSockets As Integer iMaxUdpDg As Integer lpszVendorInfo As Long End Type Public Declare Function WSAGetLastError Lib "WSOCK32。DLL" () As Long Public Declare Function WSAStartup Lib "WSOCK32。DLL" (ByVal wVersionRequired&, lpWSAData As WSADATA) As Long Public Declare Function WSACleanup Lib "WSOCK32。DLL" () As Long Public Declare Function gethostname Lib "WSOCK32。DLL" (ByVal hostname$, ByVal HostLen As Long) As Long Public Declare Function gethostbyname Lib "WSOCK32。DLL" (ByVal hostname$) As Long Public Declare Sub RtlMoveMemory Lib "KERNEL32" (hpvDest As Any, ByVal hpvSource&, ByVal cbCopy&) Public Function hibyte(ByVal wParam As Integer) hibyte = wParam \ &H100 And &HFF& End Function Public Function lobyte(ByVal wParam As Integer) lobyte = wParam And &HFF& End Function Public Sub SocketsInitialize() Dim WSAD As WSADATA Dim iReturn As Integer Dim sLowByte As String, sHighByte As String, sMsg As String iReturn = WSAStartup(WS_VERSION_REQD, WSAD) If iReturn 0 Then MsgBox "Winsock。dll is not responding。" End End If If lobyte(WSAD。wversion) 0 Then MsgBox "Socket錯誤" & Trim$(Str$(lReturn)) End If End Sub Public Function strGetMyIp() As String Dim hostname As String * 256 Dim hostent_addr As Long Dim host As HOSTENT Dim hostip_addr As Long Dim temp_ip_address() As Byte Dim i As Integer Dim ip_address As String SocketsInitialize If gethostname(hostname, 256) = SOCKET_ERROR Then Exit Function Else hostname = Trim$(hostname) End If hostent_addr = gethostbyname(hostname) If hostent_addr = 0 Then End If RtlMoveMemory host, hostent_addr, LenB(host) RtlMoveMemory hostip_addr, host。hAddrList, 4 ReDim temp_ip_address(1 To host。hLength) RtlMoveMemory temp_ip_address(1), hostip_addr, host。hLength For i = 1 To host。hLength ip_address = ip_address & temp_ip_address(i) & "。" Next ip_address = Mid$(ip_address, 1, Len(ip_address) - 1) strGetMyIp = ip_address End Function獲取主機名稱用gethostname，當前時間用Now。

熱心網友

我是離婚的女人別人剛剛給了我一個叫做 希望你們哦你們是知道的離婚的女人很寂寞的我的愛好是高跟鞋和絲襪如果你喜歡42歲的離婚女人喜歡高跟鞋和絲襪請各位網絡高手請著明愛問謝絕那些低級趣味的男人我并不是每個人都理的你需要展示你的魅力能吸引我才可以