hey er igang med at lave en bot til et text baseret spil
www.mafia-family.com
Private Sub Form_Load()
Me.Show: DoEvents
WB.Navigate "
http://mafia-family.com/"
DoEvents
While WB.Busy = True
DoEvents
Wend
WB.Document.All("email").Value = "aus_"
WB.Document.All("wachtwoord").Value = "7589"
WB.Document.All("submit").Click
DoEvents
While WB.Busy = True
DoEvents
Wend
WB.Navigate "
http://mafia-family.com/index.php?main=misdaad"
WB.Document.All.misdaadid.Value1.Click <--------------------------------her er fejlen kan nogen hjælpe souce koden til siden står neden under
WB.Document.All("submit").Click
DoEvents
End Sub
<td width="7%"><div align="center">
<input type="radio" name="misdaadid" value="1">
</div></td>
<td width="68%"> Lommetyveri</td>
<td width="25%">