kimbal

1.         Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   
2.         URL = "http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=" & ±b¸¹ & _
   
3.                 "&password=" & ±K½X & "&dstaddr=" & ¤â¾÷¸¹½X & "&encoding=BIG5&smbody=" & ²°T¤º®e
   
4.         objHTTP.Open "POST", URL, False
   
5.         objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   
6.         objHTTP.send ("")

½Æ»s¥N½X

kimbal

¦p¤U­±ÀY4¥y
§â±b¸¹,±K½X,¤â¾÷¸¹½X,²°T¤º®e¤À§O¿é¤Ja1,a2,a3,a4

1. ±b¸¹ = [A1]
   
2. ±K½X = [A2]
   
3. ¤â¾÷¸¹½X=[A3]
   
4. ²°T¤º®e=[A4]
   
5.         Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
   
6.         URL = "http://www.smsgo.com.tw/sms_gw/sendsms.asp?username=" & ±b¸¹ & _
   
7.                 "&password=" & ±K½X & "&dstaddr=" & ¤â¾÷¸¹½X & "&encoding=BIG5&smbody=" & ²°T¤º®e
   
8.         objHTTP.Open "POST", URL, False
   
9.         objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
   
10.         objHTTP.send ("")

½Æ»s¥N½X

¬Ý¨Ó§A¬Ovba·s¤â~
³o­Óºô¯¸¥i¥H¾Ç²ß¤@¤U¦p¦ó¥Îvba
http://yuan.yocjh.kh.edu.tw/%B1%D0%A7%F7/vba/index.htm