以下是引用gupiao175在2011-1-6 22:26:26的发言：
我觉得你这个问题应该带个参数才对,应该用get方式吧！
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 Label1_Click()
ShellExecute hWnd, "open", "http://zhidao.baidu.com?id="&id, vbNullString, vbNullString, conSwNormal
End Sub
"http://zhidao.baidu.com?id="&id,id为VB里的变量也就是那个文本框，你这样测试下即可！
我觉得你这个问题应该带个参数才对,应该用get方式吧！
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 Label1_Click()
ShellExecute hWnd, "open", "http://zhidao.baidu.com?id="&id, vbNullString, vbNullString, conSwNormal
End Sub
"http://zhidao.baidu.com?id="&id,id为VB里的变量也就是那个文本框，你这样测试下即可！
LZ要的应该不是这个
无知
vbgethtmlcodes.rar