教程如下:
1、打开VB,新一个EXE标准文件
2、在新建的窗体上拉一个按钮
3、双击按钮打开代码窗口
4、双击打开之后,在光标闪动的地方写入如下代码:
ShellExecute 0, "open", "http://tp.8gws.com", 0, 0, 1
5、在代码窗口上部的下拉框中找到“通用”,点“通用”之后写入如下代码:
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
6、按F5,点击按钮,运行测试一下看看是不是打开百度网页了
7、测试成功之后,打开文件菜单,选生成工程EXE,就生成了EXE文件,之后双击即可打开网站
提示:如果出现弹窗,想要去除的话,请在代码中加入 Me.Visible = False (添加位置如图,添加了不要F5测试,直接生成)
VB6.0精简版 百度云提取密码:w27b