VBScriptでAjax

Program

AjaxじゃなくてAvbxか。
なんて読むんだよ、えいぶびっくすかｗ

Dim xml

Private Sub Search()

  If IsEmpty(xml) = True Then
    Set xml = CreateObject("Msxml2.XMLHTTP")
  Else
    xml.Abort
  End If

  xml.OnReadyStateChange = GetRef("XMLHTTPStateChange")

  xml.Open "GET", "アドレス", False
  xml.Send ""

end sub

Private Sub XMLHTTPStateChange

  If (xml.ReadyState <> 4) Then
    Exit Sub
  End If

  Msgbox xml.ResponseText

End Sub

ま、どっかから拾ってきたJavaのソースをVBScriptに焼きなおしただけだが。

はてなのキーワード解説にもあるようにXMLは関係ないってことね。
コールバックの仕方がわかんなくて、一昨日GetRef関数を知ったｗ

俺メモだな。