WCM Forum - VBA - Internetseite (javascript) steuern

WCM Forum (http://www.wcm.at/forum/index.php)

- Programmierung (http://www.wcm.at/forum/forumdisplay.php?f=17)

- - VBA - Internetseite (javascript) steuern (http://www.wcm.at/forum/showthread.php?t=160107)

VBA - Internetseite (javascript) steuern

hy!

ich möchte mit VBA eine internetseite (Buttons mit javascript) steuern!

hab jetzt folgenden code gefunden:
'**************************************** Post form data - begin
'sends form fields specified In Names/Values arrays To the URL
Sub PostRequest(URL, Names, Values)
Dim I, FormData, Name, Value

'Enumerate form names And it's values
'and built string representaion of the form data
For I = 0 To UBound(Names)
'URL encode source fields
Name = URLEncode(Names(I))
Value = URLEncode(Values(I))
If FormData <> "" Then FormData = FormData & "&"
FormData = FormData & Name & "=" & Value
Next

IEPostStringRequest URL, FormData
End Sub

'sends URL encoded form data To the URL using IE
Sub IEPostStringRequest(URL, FormData)
'Create InternetExplorer
Dim WebBrowser: Set WebBrowser = CreateObject("InternetExplorer.Application")

'You can uncoment Next line To see form results As HTML
WebBrowser.Visible = True

'Send the form data To URL As POST request
Dim bFormData() As Byte
ReDim bFormData(Len(FormData) - 1)
bFormData = StrConv(FormData, vbFromUnicode)
MsgBox (FormData)
WebBrowser.Navigate URL, 0, , bFormData, _
"Content-type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)

Do While WebBrowser.Busy
' Sleep 100
DoEvents
Loop

WebBrowser.Quit
End Sub

'URL encode of a string data
Function URLEncode(Data)
Dim I, C, Out

For I = 1 To Len(Data)
C = Asc(Mid(Data, I, 1))
If C = 32 Then
Out = Out + "+"
ElseIf C < 48 Then
Out = Out + "%" + Hex(C)
Else
Out = Out + Mid(Data, I, 1)
End If
Next
URLEncode = Out
End Function
'**************************************** Post form data - end

ich starte das ganze mit:
PostRequest "http://seite.at/seite.aspx", _
Array("__xxxyyyy$xxyy$xxxxxyyy"), _
Array("")

die beiden array felder hab ich aus der internetseite entnommen --> wenn ich mit dem mauszeiger auf den button gehe zeigt er das (javascript:__doPostBack('__xxxyyyy$xxyy$xxxxxyyy' ,'') an!

jedoch hat das keine auswirkungen, wie wenn ich den button mit der maus anclicken würde!

was mach ich falsch?

mfg

Das wird schon alleine mal deswegen nicht funktionieren, weil es keine "Internetseiten" gibt. ;) :D

Wie Who-T einmal so schön meinte:
"Das Internet hat nur zwei Seiten. Eine gute und eine schlechte.
Die Schlechte ist, dass scheinbar das Internet nur für die Verbreitung von Porno da ist.
Die gute ist, dass scheinbar das Internet nur für die Verbreitung von Porno da ist." :D
Du meinst wahscheinlich Webseiten, oder? ;)

Zitat:

Das WWW wird im allgemeinen Sprachgebrauch oft mit dem Internet gleichgesetzt, obwohl es nur eine mögliche Nutzung des Internets ist. Es gibt durchaus Internet-Dienste, die nicht in das WWW integriert sind (z. B. IRC und Telnet). Dazu beigetragen haben nicht zuletzt die Webbrowser, die nicht nur das eigentliche HTTP-Protokoll (siehe unten) benutzen können, sondern auch noch andere Dienste wie FTP dem Nutzer zugänglich machen.

http://de.wikipedia.org/wiki/Www

Weiters moechtest Du sicherlich das Ziel Deiner Uebung etwas genauer erklaeren. Erklaer uns WAS Du erreichen willst, nicht das WIE. :)

hy!

wer sagt denn, dass man(n) in so einem forum nichts dazulernt! :D

Zitat:

Du meinst wahscheinlich Webseiten, oder?

richtig! :D

also dann fang ma nochmals an:
ich will eine webseite mittels vba "steuern".
die seite enhält javascript. wie kann ich nun z.B. einen Click auf einen Button "simulieren", "erzeugen" ....

Beispiel:
Seite www.seite.at/seite.aspx wird aufgerufen. Es wird eine Auswahl gemacht und dann der Button aktualisieren gedrückt. --> ergebnis wird angezeigt. dann der Button export gedrückt. --> export wird durchgeführt.

hoffe ich hab mich verständlicher ausgedrückt und keine ausdrücke missbraucht! :D

mfg