「2012年7月」のアーカイブ

//たとえループ中でも終了
FOR A = 0 TO 10
 PRINT A
 IF A = 2 THEN EXITEXIT
NEXT
//スクリプト終了のため、ここまでは到達しない
MSGBOX("HELLO")

//自作関数HELLOはあいさつ文を返す
PRINT HELLO("CN")
//但し、存在しないパラメーターを渡した場合は終了する
FUNCTION HELLO(LANG="EN")
 HELLO = "UNKNOWN"
 SELECT LANG
   CASE "EN"
     HELLO = "Hello"
   CASE "JP"
     HELLO = "こんにちは"
   CASE "FR"
     HELLO = "Bonjour"
   DEFAULT
    EXIT
 SELEND
 //もしEXITがなければ最初に設定されたUNKNOWNが出る。けどもEXITで終了しているため出ない。
 RESULT = HELLO
FEND

//通常"A=変数"は10まで出力されますが・・・
FOR A = 1 TO 10
 //6の場合だけ、PRINTによる出力はしたくない、だけどループは続けたい
 IF A = 6 THEN CONTINUE
 PRINT "A=" + A
NEXT

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://canal22.org/sample0001/")
BusyWait(IE)

CTRLWIN(GETID("Sample0001"),MAX)
MSGBOX("IELink(IE,<#DBL>あいさつの種類<#DBL>)<#CR>を実行します")

IELink(IE,"あいさつの種類")
BusyWait(IE)

MSGBOX("IELinkによりリンクがクリックされ、<#CR>サイト内移動しました")

MSGBOX("次は同じリンク文字の場合<#CR>2番目をクリックするパターンです")

IELink(IE,"あいさつの種類",2)
BusyWait(IE)


//------
Procedure BusyWait(ie)
	repeat
		Sleep(0.2)
	until (! ie.busy) and (ie.readyState=4)
Fend

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://canal22.org/sample0006/")
BusyWait(IE)

H2	= IEGetSrc(IE, "h2")
body	= IEGetSrc(IE, "BODY")

PRINT "h2:"　+ h2
PRINT "body:" + body


//------
Procedure BusyWait(ie)
	repeat
		Sleep(0.2)
	until (! ie.busy) and (ie.readyState=4)
Fend

//通常"A=変数"は100まで出力されますが・・・
FOR A = 1 TO 100
 PRINT "A=" + A
 //50の場合はBREAKの一文により、途中でループは終了
 IF A = 50 THEN BREAK
NEXT

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("http://canal22.org/sample0005/")

REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readystate = 4

FOR n = 0 TO (IE.document.forms.length -1)

 PRINT "＜" + (n+1) + "目のフォーム＞<#CR>"

    PRINT "■エレメントの数：" + IE.document.forms[n].elements.length + "<#CR>"
    PRINT "  エレメントのタイプと名前と値：<#CR>"
    PRINT "  └(type) IE.document.forms[n].elements[i].type" 
    PRINT "  └(name) IE.document.forms[n].elements[i].name"
    PRINT "  └(value) IE.document.forms[n].elements[i].value"
    PRINT "  └(checked) IE.document.forms[n].elements[i].checked"
  FOR i = 0 TO (IE.document.forms[n].elements.length -1)
    PRINT "    └(type:name) " + IE.document.forms[n].elements[i].type + ":" + IE.document.forms[n].elements[i].name
    PRINT "      └(value) " + IE.document.forms[n].elements[i].value
    PRINT "      └(className) " + IE.document.forms[n].elements[i].className
    PRINT "      └(id) " + IE.document.forms[n].elements[i].id
    PRINT "      └(uniqueID) " + IE.document.forms[n].elements[i].uniqueID
    PRINT "      └(tabIndex) " + IE.document.forms[n].elements[i].tabindex
    PRINT "      └(tagName) " + IE.document.forms[n].elements[i].tagName
    
      //セレクトボックスの情報を取得
      IFB IE.document.forms[n].elements[i].type = "select-one"
       PRINT "      └(selectedIndex) " + IE.document.forms[n].elements[i].selectedIndex
       FOR cin = 0 TO (IE.document.forms[n].elements[i].options.length - 1)
       PRINT "        └(options.text) " + IE.document.forms[n].elements[i].options[cin].text
       PRINT "        └(options.value) " + IE.document.forms[n].elements[i].options[cin].value
       PRINT "        └(options.defaultSelected) " + IE.document.forms[n].elements[i].options[cin].defaultSelected
       PRINT "        └(options.index) " + IE.document.forms[n].elements[i].options[cin].index
       PRINT "        └(options.selected) " + IE.document.forms[n].elements[i].options[cin].selected
       NEXT

      ENDIF

      //チェックボックスの情報を取得
      IFB IE.document.forms[n].elements[i].type = "checkbox" OR IE.document.forms[n].elements[i].type = "radio"
       PRINT "      └(checked) " + IE.document.forms[n].elements[i].checked
       PRINT "      └(defaultChecked) " + IE.document.forms[n].elements[i].defaultChecked
      ENDIF


  NEXT
  PRINT "<#CR>---------------<#CR>"

NEXT

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = true
IE.navigate("http://canal22.org/sample0004/")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4

PRINT "フォーム総数"
PRINT "  IE.document.forms.length=" + IE.document.forms.length
FOR A = 0 TO (IE.document.forms.length - 1)
 PRINT "  " + (A+1) + "番目のフォーム"
 PRINT "    送信先"
 PRINT "    IE.document.forms.action="   + IE.document.forms[A].action
 PRINT "    エンコード方式(1)"
 PRINT "    IE.document.forms.encoding=" + IE.document.forms[A].encoding
 PRINT "    エンコード方式(2)"
 PRINT "    IE.document.forms.enctype="  + IE.document.forms[A].enctype
 PRINT "    送信形式"
 PRINT "    IE.document.forms.method="   + IE.document.forms[A].method
 PRINT "    ターゲット"
 PRINT "    IE.document.forms.target="   + IE.document.forms[A].target
NEXT

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("http://canal22.org/sample0003/")

REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4

PRINT "■ページ内画像総数：" + IE.document.images.length
FOR A = 0 TO (IE.document.images.length-1)
 PRINT "  ▼画像" + (A+1)
 PRINT "  画像ファイル名：" + IE.document.images[A].nameProp
 PRINT "  画像URL：" + IE.document.images[A].src
 PRINT "  プロトコル：" + IE.document.images[A].protocol
 PRINT "  ページ内タグ位置：" + IE.document.images[A].sourceIndex
 PRINT "  ALT属性：" + IE.document.images[A].alt
 PRINT "  TITLE属性：" + IE.document.images[A].title
 PRINT "  枠線：" + IE.document.images[A].border
 PRINT "  class：" + IE.document.images[A].className
 PRINT "  id：" + IE.document.images[A].id
 PRINT "  name：" + IE.document.images[A].name
 PRINT "  ユニークID：" + IE.document.images[A].uniqueID
 PRINT "  高さ：" + IE.document.images[A].height
 PRINT "  横幅：" + IE.document.images[A].width
 PRINT "  読込状況：" + IE.document.images[A].complete
 PRINT "  -----"
NEXT

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = True
IE.Navigate("http://canal22.org/sample0006/")
BusyWait(IE)

IESetData(IE,"名前","name") // TEXT
IESetData(IE,"アドレス","email") // TEXT
IESetData(IE,True,"available","Yes") // RADIO
IESetData(IE,True,"PC","Yes") // RADIO
IESetData(IE,"コメントテスト","comment") // TEXTAREA


//------
Procedure BusyWait(ie)
	repeat
		Sleep(0.2)
	until (! ie.busy) and (ie.readyState=4)
Fend