モバイルWebでつぶやいてみる

またうごかねええええええええええええええ(´;ω;`)
ツイート時に再ログインを促されるページのHTMLが返ってきます。
あとID/パスワードは自分で定義して下さい

またうごかねええええええええええええええ(´;ω;`)
ツイート時に再ログインを促されるページのHTMLが返ってきます。
あとID/パスワードは自分で定義して下さい

	;
	;	MobileWEBからツイートする
	;
	
	//必要なモジュールをインクルード
		#include "hspinets.as"
	
	//IDとパスワード定義
		id=""
		pw=""
	
	//変数の定義
		valuebuf=""
		valuebuf2=""
		buf=""
		token=""
		logined=""
	
	chdir dir_cur
	//ログインページからトークン取得
		netinit
			neturl "https://mobile.twitter.com/session"
			netdlname "session.html"
			netload ""
		netterm
	//トークンを取得する
	notesel a
		noteload "session.html"
		nkfcnv buf,a,"W"
	
	notesel buf
		split buf,"value=\"",dst,valuebuf2
		split valuebuf2,"\"",token,dst
		mes token
	
	//ログインする
		netinit
			neturl "https://mobile.twitter.com/session"
			loginpost = "authenticity_token="+token+"&username="+id+"&password="+pw+""
			netrequest_post "",loginpost
	
			repeat
				netexec res
				if res > 0 : break
				if res < 0 : dialog"失敗" :end
				await 5
			loop
			netgetv logined
		netterm
		notesel logined
		notesave "logined.html"
		split logined,"force=",dst
		if stat-1>=1:mes "ログインに失敗"
		split logined,"Sign in information is not correct",dst
		if stat-1>=1:mes "ログインに失敗"
	//ツイートする
		netinit
			neturl "https://mobile.twitter.com/home"
			netdlname "main.html"
			netload ""
			notesel index
			noteload "main.html"
			split index,"<input name=\"authenticity_token\" type=\"hidden\" value=\"",dst,value2
			split value2,"\"",token2,dst
			mes token2
			if token!token2:dialog"不明なエラー"
			tweetpost = "authenticity_token="+token+"&tweet[text]=TEST"
			netrequest_post "",tweetpost
			repeat
				netexec res
				if res > 0 : break
				if res < 0 : dialog"失敗" :end
				await 5
			loop
			netgetv posted
		netterm
		dialog posted
	stop