★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:93 受信ダイアログの状態監視　(アクセスページ、時間、受信バイトの表示)
by うｗｓｃ 2009/05/30(Sat) 19:30:05
IEid　=　GETID("Internet Explorer")
ifb　IEid　<　0　then
　　MsgBox("Internet Explorerが起動してません")
　　Exit
endif

inurl　=　Input("URLを入力して下さい")
if　inurl　<>　""　then　SendStr(IEid,　inurl,　1 )

oldmoji　=　""
while　True
　　wks　=　GETSTR(IEid,　0,　1 )　　　　　//　タイトルをGET
　　ifb　oldmoji　<>　wks　　　　　　　　　　 //　変化したら記録を取る
　　　　oldmoji　=　wks
　　　　print　Copy(wks,　1,　Pos("-Microsoft",　wks)-1 )
　　endif
　　STZKUid　=　GETID("に接続")
　　ifb　STZKUid　>　0　then　　　　　　//　受信ダイアログからGET
　　　　wks　=　"時間："　+　GETSTR(STZKUid,　4,　1 )　+　"<#CR>"
　　　　wks　=　wks　+　"受信バイト："　+　GETSTR(STZKUid,　6,　1 )
　　　　Fukidasi(wks,　0,　0 )
　　endif
　　sleep(1)
　　if　GETID("Internet Explorer")　<　0　then　break
wend