ＶＢ６瀏覽器網址插入文字

Question

再問一題…
我用ＶＢ寫了一個瀏覽器
若是我想在網址之間插入某些數字
如…
Textbox裡面輸入1111按下click
網址則是http://asd.asd=1111&Action=%ACd%B8%DF&refresh=1
Textbox裡面輸入955按下click
網址則是http://asd.asd=955&Action=%ACd%B8%DF&refresh=1
Textbox裡面輸入999999按下click
網址則是http://asd.asd=999999&Action=%ACd%B8%DF&refresh=1

請問這樣又要怎麼寫…感激…

另外如果按下click是另外跳出網頁的語法是…？
用　shell "explorer 網址"　嗎？
兩個加起來謝謝…

Answer 1

'第1題,若網址是固定http:/asd.asd=...&Action=....Private Sub Command1_Click()    Dim S As String, A As String        S = "http://asd.asd=uyuyu&Action=%ACd%B8%DF&refresh=1"    A = "1111"    S = Left(S, InStr(S, "=")) & A & Right(S, Len(S) - InStr(S, "&") + 1)    Print S    S = "http://asd.asd=&Action=%ACd%B8%DF&refresh=1"    A = "955"    S = Left(S, InStr(S, "=")) & A & Right(S, Len(S) - InStr(S, "&") + 1)    Print SEnd Sub'第2題Private Sub Command2_Click()    Dim S As String, nPath        nPath = "C:\Program Files\Internet Explorer\IEXPLORE.EXE" 'IE程式的路徑    S = "tw.yahoo.com/" ' 省略掉http://    Shell nPath & " " & Chr(34) & S & Chr(34), vbMaximizedFocusEnd Sub