Trykke på en knapp fra en nettside (ikke en BOT)

[Gjest Slettet-aNZFa3]

Tar alt fra hodet, så det er bare sånn cirka det er.

 

Objekter på formen:

 

-LabelUsernameText
-TextBoxUsername
-LabelPasswordText
-TextBoxPassword
-LabelSubjectNameText
-TextBoxSubjectName(ReadOnly)
-TextBoxBugReportDescription
-ButtonCreateSubject

Når formen skal laste så har jeg denne koden:

TextBoxSubjectName.Text = "Bug Report"

 

Det jeg vil:

 

Når brukeren klikker på ButtonCreateSubject så vil jeg at brukeren skal logge inn på denne siden trykke på "Game Tyccon" og videre på "newtopic", deretetr vil jeg at det som står i TextBoxSubjectName skal bli overført til "Subject" og det som står i TextBoxBugReportDescription skal bli overført til hvor beskrivelsen skal bli skrevet.

 

jeg legger ved screenshot av siden (der hvor man skal lage nytt emne (slik at noen trenger å registrere seg)) + kildekode.

 

 

 

EDIT: kildekoden var for lang så jeg lagrer den heller som et .rtf format.

Og plz hvis dere finner noe passord relatert ting, vær så snill og si ifra.

Endret 8. august 2007 av Slettet-aNZFa3

[Jonas]

Jeg tror dere i Limited Gaming i utgangspunktet har et problem om dette er vanskelig. Det florerer jo av WebBrowser-eksempler i disse Nordic Mafia-tider. :!:

 

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Load()
   
   Me.Show
   
   NavigateToPage "http://limitedgaming.forum5.com/login.php?mforum=limitedgaming"
   
   webMain.Document.Forms(0).username.Value = "username"
   webMain.Document.Forms(0).password.Value = "password"
   webMain.Document.Forms(0).login.Click
   
   NavigateToPage "http://limitedgaming.forum5.com/posting.php?mode=newtopic&f=2&mforum=limitedgaming"
   
   webMain.Document.Forms(0).subject.Value = "Subject"
   webMain.Document.Forms(0).message.Value = "Description"
   webMain.Document.Forms(0).post.Click
   
   ' Done
   
End Sub

Private Sub NavigateToPage(httpURL As String)
   
   Do While webMain.Busy
       Wait 100
   Loop
   
   webMain.Navigate httpURL
   
   Do While webMain.Busy
       Wait 100
   Loop
   
End Sub


Private Sub Wait(Millisekkunder As Long)
   
   Dim Tid As Long
   Tid = GetTickCount
   
   Do Until GetTickCount >= Tid + Millisekkunder
       DoEvents
       Sleep 1
   Loop
   
End Sub

Endret 8. august 2007 av Jonas

[Manfred]

Nå er de to øverste trådene her om så og si nøyaktig det samme. Kan folk snart lære seg å søke litt i forumet??