谁能告诉我在VB里面怎么模拟网页的方式post或者get的方式来访问一个叶面？

Question

谁能告诉我在VB里面怎么模拟网页的方式post或者get的方式来访问一个叶面？也就是说这样
http://127.0.0.1/aaa.jsp?aaa=1带有这样参数的访问只要实现能够访问就是了
相当于点了按钮打开一下这个叶面应该比较简单吧？

Answer 1

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
        
Sub test()
ShellExecute &H0, "open", "http://127.0.0.1/aaa.jsp?aaa=1", vbNullString, vbNullString, 1End Sub

Answer 2

使用WEBcontrl控件，就达到你要效果了

Answer 3

不明白什么叫“不访问那个页面，但要达到访问它的效果”如果你知道一个页面执行后的结果，那直接用VB生成一个相同的结果吧！如果页面结果是不定的，你不访问它怎么知道它的效果？在VB中可以调用浏览器来访问一个URL，也可以用 webbrowser 控件来加载一个页面。

Answer 4

我的意思不知道怎么表达我是要通过一个get方式给这个地址的页面传递一个参数剩余的工作就由网页完成我希望这个工作能在后台完成，不知道我这样说大家明白我的意思没有

Answer 5

那就是要加载页面了，用 webbrowser 控件，只需要将它的位置入到窗体外，它就在后台工作了。在窗体上放一个 WebBrowser1 :Private Sub Form_Load()
    WebBrowser1.move -1000,-1000,10,10   '放到窗体外
    
    dim uid as string
    uid="admin"
    WebBrowser1.Navigate "http://127.0.0.1/login.asp?userid=" & uid   '提交 uid 这个变量到 login.asp 这一页
End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox "ok!" '页面执行完成后的事件
End Sub

Answer 6

fxy_2002(阿勇)哥们你好假如这个页面地址是远程的那么我要每秒钟需要起码传递数据（刷新）4-5次或者更多次我一个软件窗口能刷新的过来吗？

Answer 7

对于活动页面，除了用 HTTP 协议访问它，好象没有其它好办法能得到它的结果，因为它必须在服务端运行，才能有你想要的结果。如果远程机器是你所控制的，而目标页面的功能你也可以用其它程式代替，那么建议你用其它方式进行通讯。也就是说在远程机器上放一个服务程序，对客户端发送数据。就类似某些远程管理或后门程序，这样应该比较快。如果不是你控制的机器，为了加快速度，你可以多使用几个窗体。（前提是你的网络带宽足够快，不然适得其反）比如你已有一个 form1 能完成功能，那么可以再用 new 多生成几个同样功能的窗体在后台运行。

Answer 8

fxy_2002(阿勇)
你能不能说说怎么样new多生成几个同样功能的窗体，具体点的代码有吗？LordSimon(LordSimon)的意思是正确的
我要很迅速的把消息传递出去，但是不要从服务器收集返回信息

Answer 9

(比如已有一个 form1，功能完整)生成10个同样功能的新窗体：    Dim i As Integer
    Dim a(9) As Form
    For i = 0 To 9
        Set a(i) = New Form1
        load a(i)
        'a(i).show  :如果要显示出来，取消本行的注释
    Next
需不需要返回结果，都差不多。
需要时就在 WebBrowser1_DocumentComplete 事件发生后分析 WebBrowser1 中的页面内容，不需要就不作分析忽略它。