由于不熟練sipjs的操作無法嵌入到網頁中，這是個蠢方法

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function SetActiveWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
?
Private Sub Command1_Click()
'Dim a As RECT
Dim command As String

? ? Shell "C:\Program Files (x86)\MicroSIP\MicroSIP.exe " & command, vbNormalNoFocus
? ?' Sleep 2000
? ? 'Dim hwnd As Long
? ? 'hwnd = FindWindow(vbNullString, "MicroSIP - 8001")
? ?' FormMove = MoveWindow(hwnd, 1800, 200, 100, 200, True)
? ? 'SetActiveWindow hwnd
? ? 'GetWindowRect hwnd, a '這個hwnd換為你要判斷的那個窗口的句柄
? ? 'MsgBox hwnd
'MsgBox "這個窗口的位置是：Left=" & a.Left & " Top=" & a.Top & vbCrLf & "大小是：" & a.Right - a.Left & "*" & a.Bottom - a.Top
End Sub

Private Sub Command2_Click()
?Shell "C:\Program Files (x86)\MicroSIP\MicroSIP.exe /hangupall"
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim hwnd As Long
Dim strCmd As String
strCmd = Trim(command)
? ?Shell "C:\Program Files (x86)\MicroSIP\MicroSIP.exe " & strCmd, vbNormalNoFocus
? ?
? ? hwnd = FindWindow(vbNullString, "MicroSIP - 8001")
? ? FormMove = MoveWindow(hwnd, 1275, 200, 100, 200, True)
Unload Me

End Sub

Private Sub Timer1_Timer()
Dim a As RECT
?Dim hwnd As Long
? ? hwnd = FindWindow(vbNullString, "MicroSIP - 8001")
? ? FormMove = MoveWindow(hwnd, 275, 1200, 100, 200, True)
? ? 'SetActiveWindow hwnd
? ? GetWindowRect hwnd, a '這個hwnd換為你要判斷的那個窗口的句柄
'Text1 = "Left=" & a.Left & " Top=" & a.Top & vbCrLf & "大小是：" & a.Right - a.Left & "*" & a.Bottom - a.Top

'FormMove = MoveWindow(Me.hwnd, a.Left, a.Top, 500, 100, True)
SetWindowPos Me.hwnd, -1, a.Left + 40, a.Top - 1055, 245, 105, FLAGS

End Sub
這樣運行生成的文件加上手機號碼就能撥打電話了

1.exe? 13921455***? ?試過了能撥打

資源文件：https://download.csdn.net/download/xw870228/18563511

需要源碼或者調試的可以互相交流！

總結

以上是生活随笔為你收集整理的vb改动microsip让microsip隐藏然后命令拨打电话的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。