由于不熟练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
需要源码或者调试的可以互相交流！