求助:vb 与网页,快捷方式, API
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
Dim nfile As Integer
Private Sub Command1_Click()
Call SMS("1111111111", "你好")
End Sub
Private Sub Form_Load()
nfile = FreeFile
Open App.Path & "\FetionAPI.url" For Output As #nfile
Print #nfile, "[internetshortcut]"
End Sub
'//////////////////////FetionApi功能函数
Private Function SMS(ByVal recnumb As String, ByVal message As String)
Print #nfile, "url=https://fetionAPI.appspot.com/apifrom=22222222222&pw=fetion2010" & "to=" & " '" & recnumb & "' " & "msg =" & " ' " & message & " '"
appurl = App.Path & "\https://fetionAPI.appspot.com/apifrom=& 222222222222 & pw = fetion2010" & "to=" & " '" & recnumb & " ' " & "msg=" & " ' " & message & " '"
appurl = App.Path & "\appurl = FetionAPI"
lr = ShellExecute(hwnd, "post", appurl, "", "", vbNormalFocus)
If (lr < 0) Or (lr > 32) Then
MsgBox "成功打开"
Else
MsgBox "无法打开链接", vbinfomation
End If
End Function
我想在 建立的快捷方式的名字里用参数,用来给不同的号码发送信息。在运行后生成的快捷方式打开后地址栏里的内容是https://fetionapi.appspot.com/apifrom=22222222222&pw=fetion2010to=%20'15225918247'%20msg%20=%20'%20你好%20'
我不知道是不是建立快捷方式时的 & 用错了 导致在地址栏中出现 %20' 这个符号。用的是Fetion的API,网页返回信息是:系统不知道你要做什么
大家帮我看看