动画介绍：直接打开VB 新建一个EXE文件..新建一个Text和一个Command按纽
最后直接把代码写上去就可以了...
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1
End Sub
可以了...生成试验下..我就不美化了..你们可以去美化下``` |
安全中国首页 > 动画中心 > VB编程
