国产av日韩一区二区三区精品,成人性爱视频在线观看,国产,欧美,日韩,一区,www.成色av久久成人,2222eeee成人天堂

Dim 標(biāo)簽,內(nèi)容,字符數(shù),網(wǎng)頁,獲取內(nèi)容,上傳內(nèi)容,激活碼
Import "ShanHai.lua"

\手機(jī)按鍵精靈案例
激活碼= "001afdg6dg6fd66d6d26"
標(biāo)簽 = "000"
內(nèi)容 = "bdfhgfhfh"
執(zhí)行上傳
執(zhí)行獲取

Delay 3000






Function 執(zhí)行獲取
TracePrint "正在執(zhí)行獲取數(shù)據(jù)。。。"
ShowMessage  "正在執(zhí)行獲取數(shù)據(jù)。。。"
For 100//循環(huán)次數(shù)
獲取內(nèi)容 = shanhai.GetHttp("http://lietianya.gotoip2.com/shuju/" &激活碼& "/" & 標(biāo)簽 & ".html")
字符數(shù) = UTF8.Len(獲取內(nèi)容)
If 1 > 字符數(shù) then//循環(huán)次數(shù)
TracePrint "獲取失敗"
ShowMessage  "獲取失敗"
Delay 6000
Else 
TracePrint "獲取成功"
ShowMessage "獲取成功"
Exit For //循環(huán)退出
End If
Next//---結(jié)束循環(huán)
TracePrint "獲取內(nèi)容為："&獲取內(nèi)容
ShowMessage "獲取內(nèi)容為：" & 獲取內(nèi)容
End Function

Function 執(zhí)行上傳
TracePrint "正在執(zhí)行上傳數(shù)據(jù)。。。"
ShowMessage  "正在執(zhí)行上傳數(shù)據(jù)。。。"
For 100//循環(huán)次數(shù)
shanhai.GetHttp ("http://lietianya.gotoip2.com/shuju/" &激活碼& "/api.php/api.php?title=" & 標(biāo)簽 & "&content=" & 內(nèi)容 & "")
Delay 200
網(wǎng)頁 = shanhai.GetHttp("http://lietianya.gotoip2.com/shuju/" &激活碼& "/" & 標(biāo)簽 & ".html")
字符數(shù) = UTF8.Len(網(wǎng)頁)
If 1 > 字符數(shù) then//循環(huán)次數(shù)
TracePrint "上傳失敗"
ShowMessage  "上傳失敗"
Delay 6000
Else 
TracePrint "上傳成功"
ShowMessage "上傳成功"
Exit For //循環(huán)退出
End If
Next//---結(jié)束循環(huán)
TracePrint "上傳內(nèi)容為："&網(wǎng)頁
ShowMessage "上傳內(nèi)容為：" & 網(wǎng)頁
上傳內(nèi)容=網(wǎng)頁
End Function

Need to download a Shanhai plug-in