vb改动microsip让microsip隐藏然后命令拨打电话

由于不熟练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隐藏然后命令拨打电话相关推荐

[vb]利用WScript.Shell对象隐藏cmd命令行运行
1. WScript.Shell(Windows Script Host Runtime Library)是一个对象,对应的文件是C:\WINDOWS\system32\wshom.ocx,Wscri ...
android 拨打电话但隐藏,android实现拨打电话但不弹出拨号界面
这里只提供一个大概的思路,整个流程不是我一个人就能完成的.测试机型为htc one x,Android版本4.2.2,已ROOT. 要实现拨号程序可能很简单,一个简单的Intent就能实现,从发出意图 ...
ue怎么打开服务器隐藏文件,隐藏/显示选区命令 - UltraEdit 中文帮助文档
这个功能允许用户选择一些行号,并隐藏它们,使它们在屏幕中不可见,如果这些行已经隐藏,则显示它们. 隐藏行要隐藏行集,先选择你想隐藏的行,然后从菜单项目或用快捷键 (CTRL+ 数字键盘"- ...
AT命令拨电话，如何判断手机的状态？
我使用AT命令拨电话,如:ATD10086; 我怎么知道我拨打的电话是否成功了呢? 比如SIM卡欠费了,那么肯定算是没有拨通:再比如网络有问题,被叫方没有收到来电,那么也算没拨通:等等.但是指令发出后 ...
一种切实可行的后台执行脚本方法——利用VB脚本隐藏CMD命令窗口
笔者有该需求,运行批处理命令文件,希望其能够后台执行,而不是显示输出日志信息后关闭窗口时进程就被杀死了. 利用VB脚本相当简单地实现该需求. 新建launch_bat.vbs文件将下述代码赋值到文件 ...
cad隐藏图层命令快捷键_教你学会天正CAD局部隐藏对象技巧
天正局部隐藏命令:JBYC,即局部隐藏的拼音首字母,其命令全称为TMKHIDE 适用于所有天正软件(建筑.电气.给排水.暖通),天正建筑的工具界面中是有此菜单的,且默认快捷键4为局部隐藏,6为恢复可见 ...
cad隐藏图层命令快捷键_CAD隐藏当前图层和只显示当前图层的快捷键是什么快捷键？...
回答: 3DMAX隐藏当前选择的快捷键是Alt+Q,也可用作隔离选择的物体,或者通过快捷键Alt+U-->C,调用出自定义用户界面,在自定义用户界面中的[键盘]栏下找到[隐藏选定对象]命令,在右 ...
隐藏进程命令行参数，例如输入密码等高危操作
目录前言复写argv参数获取标准输入总结前言启动程序很多时候用命令行参数可以很方便,做到简化一些配置,但是输入用户名密码等操作,如果通过进程查看工具直接看到密码就太不安全了. 因此很有必要 ...
vb.net的windows窗体实现dos命令
Imports System.Threading Imports System.Runtime.CompilerServices Public Class frmCmdExcute Inherits ...
计算机如何用vb文本加密,信息加密与隐藏工具的设计与实现VB231
摘要当今时代,随着电脑的普及应用和互联网的快速发展,网络中露出的安全问题引起普遍关注,网络的安全,主要是网络信息安全,需要采取相应的保护措施,提供适合的安全服务,加密机制和信息隐藏技术作为保 ...

vb改动microsip让microsip隐藏然后命令拨打电话

vb改动microsip让microsip隐藏然后命令拨打电话相关推荐

最新文章

热门文章