» JavaScript und VBA-Programmierung Makro führt Aktion nicht aus

timer8.7 · Beobachter Anmeldedatum: 13.07.2012 Beiträge: 1

Hallo Leute,

Ich habe da ein Problem. Ich habe von einem Freund eine Tabelle bekommen. Die eigentlich in einem Browser-Game(http://www.gangsofcrime1930.de) eine Check-abfrage durchführen soll. Also dort soll eins von neun bildern erkannt werden, was vorgegeben ist. Aber dies macht es leider nicht mehr. Das ich nenne es mal Tool war für den Internet Explorer 5 geschrieben. Aber ich habe nur den Internet Explorer 6 auf meinem alten PC, dort läuft XP drauf.
Ich habe auch alle ActiveX aktiviert, damit die Tabelle dann auch auf den Explorer zugreifen kann. Ein Teil der Makros in der Tabelle funktioniert auch aber das wäre mit das wichtigste wenn diese Abfrage wieder funktioniert. Ich kann jemanden gerne die Tabelle zu kommen lassen.
Ein Teil wurde mit JavaScript geschrieben, so weit ich das verstanden habe aber korrigiert mich, wenn ich falsch liege. Da ich bei Programmiersprachen nicht so bewandert bin, suche ich bei euch hilfe.

Mfg timer

Aber hier ist ein Teil des Codes:

'
Sub Angriffsfuehrung5()
sDName = ActiveWorkbook.Name
'If Workbooks(sDName).Worksheets("Main").Cells(8, 2) = 22459 Then
Set ie = CreateObject("InternetExplorer.Application")

sDPath = ActiveWorkbook.Path
URL = sDPath + "\Mafia1930_Angriff.html"
SID = Workbooks(sDName).Worksheets("Main").Cells(2, 2)
ZAPMin = Workbooks(sDName).Worksheets("Main").Cells(14, 2) / 10
ZAPMax = Workbooks(sDName).Worksheets("Main").Cells(15, 2) / 10
ZAPMinStep = Workbooks(sDName).Worksheets("Main").Cells(12, 2)
ZAPMaxStep = Workbooks(sDName).Worksheets("Main").Cells(13, 2)
ZAPCount = Int((ZAPMaxStep - ZAPMinStep + 1) * Rnd(1) + ZAPMinStep)
ulDissi = 999999
'GoSub WechselDissi
'
Workbooks(sDName).Worksheets("Webseite").Select
Cells(2, 1).Select
Restangriffe = 1
While Restangriffe > 0
Startzeit = Time()
Restangriffe = 0
While ActiveCell.Offset(0, 1) <> ""
Startzeit2 = Time()
'Link zusammenbauen & Seite öffnen
ActiveCell.Offset(0, 5).Select 'Anzahl
If ActiveCell = "" Then ActiveCell = 0
x = ActiveCell.Offset(0, 1) 'Stärke Übernahme
Y = ActiveCell 'Anzahl
If x > 0 And Y = 1 Then ActiveCell = 88 'Angriff und Übernahme
If x > 0 And Y = 0 Then ActiveCell = 99 'nur Übernahme
'If ActiveCell.Offset(0, 1) > 0 And ActiveCell() = 0 Then Active Cell = 99
uiCheckDissi = Val(Left$(ActiveCell.Offset(0, 2), InStr(1, ActiveCell.Offset(0, 2), " - ", _
_
_
1)))
If uiCheckDissi <> ulDissi And uiCheckDissi <> 0 Then
ulDissi = uiCheckDissi
GoSub WechselDissi
End If
Select Case ActiveCell
Case 0 ' nix zu tun
'
Case 88 ' Angriff mit folgender Übernahme
'
uiAnzahl = ActiveCell - 1
ActiveCell = 0
ActiveCell.Offset(0, -1).Select
If ActiveCell = "RND" Then
APMin = Workbooks(sDName).Worksheets("Main").Cells(10, 2) / 10
APMax = Workbooks(sDName).Worksheets("Main").Cells(11, 2) / 10
uiStaerke = -1
Do While uiStaerke > APMax Or uiStaerke < APMin
uiStaerke = Int(Rnd(1) * (APMax))
Loop
'
Else
uiStaerke = ActiveCell / 10
End If
ActiveCell.Offset(0, 3).Select
'URL = URL1 + ActiveCell
ie.navigate URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
Do While Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True
ie.document.angriff.SID.Value = SID
' aufgrund der laggenden Server bereits den District und die Stadt vorwählen.
ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _
ActiveCell.Offset(0, -4))) - 1) ' + " selected"
ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6)
' Plünderung wählen
ie.document.angriff.angriffTyp(0).Checked = "Wahr"
' Killer einsetzen
ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1)
Do While Not ie.readystate = 4
DoEvents
Loop
WZS = Time()
Do While Wartezeit > 0.5 Or Wartezeit < 0.2
Wartezeit = Rnd(1)
Loop
Wartezeit = Int(Wartezeit * 10000)
Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit
DoEvents
Loop
raus = ie.document.forms(0).submit()

Startzeit3 = Time() '2 Sekunden Wartezeit einbauen
Do While Int((Time() - Startzeit3) * 24 * 60 * 60) < 4
DoEvents
Loop
ActiveCell.Offset(0, -1).Select
uiStaerke = (ActiveCell / 10) - 3
ActiveCell = 0
Cells(ActiveCell.Row, 1).Interior.ColorIndex = 46
ie.navigate URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
Do While Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True
ie.document.angriff.SID.Value = SID
' aufgrund der laggenden Server bereits den District und die Stadt vorwählen.
ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -3)), Len(Str$( _
ActiveCell.Offset(0, -3))) - 1) ' + " selected"
ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -5)
' Übernahme wählen
ie.document.angriff.angriffTyp(1).Checked = "Wahr"
'ie.document.Angriff.angriffTyp(1).Checked = "Falsch"
' Killer einsetzen
ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1)
' Bodys einsetzen
ie.document.angriff.gfnr_9.Value = "10"
' Consiliere einsetzen
ie.document.angriff.gfnr_45.Value = "1"
'
Do While Not ie.readystate = 4
DoEvents
Loop
WZS = Time()
Do While Wartezeit > 0.5 Or Wartezeit < 0.2
Wartezeit = Rnd(1)
Loop
Wartezeit = Int(Wartezeit * 10000)
Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit
DoEvents
Loop
raus = ie.document.forms(0).submit()
'
Case 99 ' nur Übernahme
'
ActiveCell = 0
ActiveCell.Offset(0, 1).Select
uiStaerke = (ActiveCell / 10) - 3
ActiveCell = 0
Cells(ActiveCell.Row, 1).Interior.ColorIndex = 46
ActiveCell.Offset(0, 1).Select
'URL = URL1 + ActiveCell
ie.navigate URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
Do While Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True
ie.document.angriff.SID.Value = SID
' aufgrund der laggenden Server bereits den District und die Stadt vorwählen.
ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _
ActiveCell.Offset(0, -4))) - 1) ' + " selected"
ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6)
' Übernahme wählen
ie.document.angriff.angriffTyp(1).Checked = "Wahr"
'ie.document.Angriff.angriffTyp(1).Checked = "Falsch"
' Killer einsetzen
ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1)
' Bodys einsetzen
ie.document.angriff.gfnr_9.Value = "10"
' Consiliere einsetzen
ie.document.angriff.gfnr_45.Value = "1"
raus = ie.document.forms(0).submit()
'

Do While Not ie.readystate = 4
DoEvents
Loop
WZS = Time()
Do While Wartezeit > 0.5 Or Wartezeit < 0.2
Wartezeit = Rnd(1)
Loop
Wartezeit = Int(Wartezeit * 10000)
Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit
DoEvents
Loop
'
Case Else ' nur Angriff

uiAnzahl = ActiveCell - 1
Restangriffe = Restangriffe + uiAnzahl
ActiveCell = uiAnzahl
ActiveCell.Offset(0, -1).Select
If ActiveCell = "RND" Then
If ZAPCount > 0 Then
APMin = Workbooks(sDName).Worksheets("Main").Cells(10, 2) / 10
APMax = Workbooks(sDName).Worksheets("Main").Cells(11, 2) / 10
ZAPCount = ZAPCount - 1
Else
APMin = Workbooks(sDName).Worksheets("Main").Cells(14, 2) / 10
APMax = Workbooks(sDName).Worksheets("Main").Cells(15, 2) / 10
ZAPCount = Int((ZAPMaxStep - ZAPMinStep + 1) * Rnd + ZAPMinStep)
End If

uiStaerke = -1
Do While uiStaerke > APMax Or uiStaerke < APMin
uiStaerke = Int(Rnd(1) * (APMax))
Loop
'
Else
uiStaerke = ActiveCell / 10
End If
'
ActiveCell.Offset(0, 3).Select
'URL = URL1 + ActiveCell
ie.Visible = True
ie.navigate URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
Do While Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True
ie.document.angriff.SID.Value = SID
' aufgrund der laggenden Server bereits den District und die Stadt vorwählen.
test1 = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$(ActiveCell.Offset(0, -4))) - 1) _
_
_
' + " selected"
test2 = ActiveCell.Offset(0, -6)
ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _
ActiveCell.Offset(0, -4))) - 1) ' + " selected"
ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6)
'ie.document.all.angriffstrupp.Style.display = "inline"
' Plünderung wählen
ie.document.angriff.angriffTyp(0).Checked = "Wahr"
' Killer einsetzen
ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1)
raus = ie.document.angriff.submit()
'raus = ie.document.angriff.submit()
Do While ie.busy
DoEvents
Loop

titel = ie.document.Title
If ie.document.Title = "e-sport.com - security -" Then
a = MsgBox("CODE!", vbYes, "CODE")
End If
End Select
Cells(ActiveCell.Row, 1).Select
'ActiveCell.Interior.ColorIndex = 46
ActiveCell.Offset(1, 0).Select
Endezeit = Time()
Dauer = (Endezeit - Startzeit2) * 100000
ZwZeit = Workbooks(sDName).Worksheets("Main").Cells(5, 2) / 1000
Zufallszeit = Rnd(1) * 3

While Dauer < ZwZeit + Zufallszeit

Endezeit = Time()
Dauer = (Endezeit - Startzeit2) * 100000
DoEvents

Wend

'Startzeit2 = Time()
'Do While Int((Time() - Startzeit2) * 24 * 3600000) < Workbooks(sDName).Worksheets("Main"). _
Cells(5, 2)
' DoEvents
'Loop
Wend ' Ende der inneren Schleife
Cells(2, 1).Select
Do While Int((Time() - Startzeit) * 24 * 3600) < Workbooks(sDName).Worksheets("Main").Cells(6, _
_
_
2)
DoEvents
Loop
Wend 'Ende der Angriffswelle
'
End
'
WechselDissi:
sDissi = Str$(ulDissi)
wD_URL2 = Right$(sDissi, Len(sDissi) - 1)
wD_URL = "http://www.mafia1930.de/indexMember.php?tpl=district_verwalten&action=change&bezirk=" _
_
_
+ wD_URL2 + "&sid=" + SID
ie.navigate wD_URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
Application.Wait Now + TimeSerial(0, 0, 1)
'Wiederholung wg. der tollen Server
ie.navigate wD_URL
Do While ie.busy And Not ie.readystate = 4
DoEvents
Loop
ie.Visible = True

Return
'End If

End Sub

programmierer-forum.de · Gast

Mach mit!

Wenn Dir die Beiträge zum Thread "JavaScript und VBA-Programmierung Makro führt Aktion nicht aus" gefallen haben oder Du noch Fragen hast oder Ergänzungen machen möchtest, solltest Du Dich gleich bei uns anmelden:

Registrierte Mitglieder genießen die folgenden Vorteile:
✔ kostenlose Mitgliedschaft
✔ keine Werbung
✔ direkter Austausch mit Gleichgesinnten
✔ neue Fragen stellen oder Diskussionen starten
✔ schnelle Hilfe bei Problemen
✔ Bilder und Videos hochladen
✔ und vieles mehr...

Autor	Nachricht
timer8.7 Beobachter Anmeldedatum: 13.07.2012 Beiträge: 1	13.07.2012, 15:26 zitieren Hallo Leute, Ich habe da ein Problem. Ich habe von einem Freund eine Tabelle bekommen. Die eigentlich in einem Browser-Game(http://www.gangsofcrime1930.de) eine Check-abfrage durchführen soll. Also dort soll eins von neun bildern erkannt werden, was vorgegeben ist. Aber dies macht es leider nicht mehr. Das ich nenne es mal Tool war für den Internet Explorer 5 geschrieben. Aber ich habe nur den Internet Explorer 6 auf meinem alten PC, dort läuft XP drauf. Ich habe auch alle ActiveX aktiviert, damit die Tabelle dann auch auf den Explorer zugreifen kann. Ein Teil der Makros in der Tabelle funktioniert auch aber das wäre mit das wichtigste wenn diese Abfrage wieder funktioniert. Ich kann jemanden gerne die Tabelle zu kommen lassen. Ein Teil wurde mit JavaScript geschrieben, so weit ich das verstanden habe aber korrigiert mich, wenn ich falsch liege. Da ich bei Programmiersprachen nicht so bewandert bin, suche ich bei euch hilfe. Mfg timer Aber hier ist ein Teil des Codes: ' Sub Angriffsfuehrung5() sDName = ActiveWorkbook.Name 'If Workbooks(sDName).Worksheets("Main").Cells(8, 2) = 22459 Then Set ie = CreateObject("InternetExplorer.Application") sDPath = ActiveWorkbook.Path URL = sDPath + "\Mafia1930_Angriff.html" SID = Workbooks(sDName).Worksheets("Main").Cells(2, 2) ZAPMin = Workbooks(sDName).Worksheets("Main").Cells(14, 2) / 10 ZAPMax = Workbooks(sDName).Worksheets("Main").Cells(15, 2) / 10 ZAPMinStep = Workbooks(sDName).Worksheets("Main").Cells(12, 2) ZAPMaxStep = Workbooks(sDName).Worksheets("Main").Cells(13, 2) ZAPCount = Int((ZAPMaxStep - ZAPMinStep + 1) * Rnd(1) + ZAPMinStep) ulDissi = 999999 'GoSub WechselDissi ' Workbooks(sDName).Worksheets("Webseite").Select Cells(2, 1).Select Restangriffe = 1 While Restangriffe > 0 Startzeit = Time() Restangriffe = 0 While ActiveCell.Offset(0, 1) <> "" Startzeit2 = Time() 'Link zusammenbauen & Seite öffnen ActiveCell.Offset(0, 5).Select 'Anzahl If ActiveCell = "" Then ActiveCell = 0 x = ActiveCell.Offset(0, 1) 'Stärke Übernahme Y = ActiveCell 'Anzahl If x > 0 And Y = 1 Then ActiveCell = 88 'Angriff und Übernahme If x > 0 And Y = 0 Then ActiveCell = 99 'nur Übernahme 'If ActiveCell.Offset(0, 1) > 0 And ActiveCell() = 0 Then Active Cell = 99 uiCheckDissi = Val(Left$(ActiveCell.Offset(0, 2), InStr(1, ActiveCell.Offset(0, 2), " - ", _ _ _ 1))) If uiCheckDissi <> ulDissi And uiCheckDissi <> 0 Then ulDissi = uiCheckDissi GoSub WechselDissi End If Select Case ActiveCell Case 0 ' nix zu tun ' Case 88 ' Angriff mit folgender Übernahme ' uiAnzahl = ActiveCell - 1 ActiveCell = 0 ActiveCell.Offset(0, -1).Select If ActiveCell = "RND" Then APMin = Workbooks(sDName).Worksheets("Main").Cells(10, 2) / 10 APMax = Workbooks(sDName).Worksheets("Main").Cells(11, 2) / 10 uiStaerke = -1 Do While uiStaerke > APMax Or uiStaerke < APMin uiStaerke = Int(Rnd(1) * (APMax)) Loop ' Else uiStaerke = ActiveCell / 10 End If ActiveCell.Offset(0, 3).Select 'URL = URL1 + ActiveCell ie.navigate URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop Do While Not ie.readystate = 4 DoEvents Loop ie.Visible = True ie.document.angriff.SID.Value = SID ' aufgrund der laggenden Server bereits den District und die Stadt vorwählen. ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _ ActiveCell.Offset(0, -4))) - 1) ' + " selected" ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6) ' Plünderung wählen ie.document.angriff.angriffTyp(0).Checked = "Wahr" ' Killer einsetzen ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1) Do While Not ie.readystate = 4 DoEvents Loop WZS = Time() Do While Wartezeit > 0.5 Or Wartezeit < 0.2 Wartezeit = Rnd(1) Loop Wartezeit = Int(Wartezeit * 10000) Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit DoEvents Loop raus = ie.document.forms(0).submit() Startzeit3 = Time() '2 Sekunden Wartezeit einbauen Do While Int((Time() - Startzeit3) * 24 * 60 * 60) < 4 DoEvents Loop ActiveCell.Offset(0, -1).Select uiStaerke = (ActiveCell / 10) - 3 ActiveCell = 0 Cells(ActiveCell.Row, 1).Interior.ColorIndex = 46 ie.navigate URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop Do While Not ie.readystate = 4 DoEvents Loop ie.Visible = True ie.document.angriff.SID.Value = SID ' aufgrund der laggenden Server bereits den District und die Stadt vorwählen. ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -3)), Len(Str$( _ ActiveCell.Offset(0, -3))) - 1) ' + " selected" ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -5) ' Übernahme wählen ie.document.angriff.angriffTyp(1).Checked = "Wahr" 'ie.document.Angriff.angriffTyp(1).Checked = "Falsch" ' Killer einsetzen ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1) ' Bodys einsetzen ie.document.angriff.gfnr_9.Value = "10" ' Consiliere einsetzen ie.document.angriff.gfnr_45.Value = "1" ' Do While Not ie.readystate = 4 DoEvents Loop WZS = Time() Do While Wartezeit > 0.5 Or Wartezeit < 0.2 Wartezeit = Rnd(1) Loop Wartezeit = Int(Wartezeit * 10000) Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit DoEvents Loop raus = ie.document.forms(0).submit() ' Case 99 ' nur Übernahme ' ActiveCell = 0 ActiveCell.Offset(0, 1).Select uiStaerke = (ActiveCell / 10) - 3 ActiveCell = 0 Cells(ActiveCell.Row, 1).Interior.ColorIndex = 46 ActiveCell.Offset(0, 1).Select 'URL = URL1 + ActiveCell ie.navigate URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop Do While Not ie.readystate = 4 DoEvents Loop ie.Visible = True ie.document.angriff.SID.Value = SID ' aufgrund der laggenden Server bereits den District und die Stadt vorwählen. ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _ ActiveCell.Offset(0, -4))) - 1) ' + " selected" ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6) ' Übernahme wählen ie.document.angriff.angriffTyp(1).Checked = "Wahr" 'ie.document.Angriff.angriffTyp(1).Checked = "Falsch" ' Killer einsetzen ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1) ' Bodys einsetzen ie.document.angriff.gfnr_9.Value = "10" ' Consiliere einsetzen ie.document.angriff.gfnr_45.Value = "1" raus = ie.document.forms(0).submit() ' Do While Not ie.readystate = 4 DoEvents Loop WZS = Time() Do While Wartezeit > 0.5 Or Wartezeit < 0.2 Wartezeit = Rnd(1) Loop Wartezeit = Int(Wartezeit * 10000) Do While Int((Time() - WZS) * 24 * 3600000) < Wartezeit DoEvents Loop ' Case Else ' nur Angriff uiAnzahl = ActiveCell - 1 Restangriffe = Restangriffe + uiAnzahl ActiveCell = uiAnzahl ActiveCell.Offset(0, -1).Select If ActiveCell = "RND" Then If ZAPCount > 0 Then APMin = Workbooks(sDName).Worksheets("Main").Cells(10, 2) / 10 APMax = Workbooks(sDName).Worksheets("Main").Cells(11, 2) / 10 ZAPCount = ZAPCount - 1 Else APMin = Workbooks(sDName).Worksheets("Main").Cells(14, 2) / 10 APMax = Workbooks(sDName).Worksheets("Main").Cells(15, 2) / 10 ZAPCount = Int((ZAPMaxStep - ZAPMinStep + 1) * Rnd + ZAPMinStep) End If uiStaerke = -1 Do While uiStaerke > APMax Or uiStaerke < APMin uiStaerke = Int(Rnd(1) * (APMax)) Loop ' Else uiStaerke = ActiveCell / 10 End If ' ActiveCell.Offset(0, 3).Select 'URL = URL1 + ActiveCell ie.Visible = True ie.navigate URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop Do While Not ie.readystate = 4 DoEvents Loop ie.Visible = True ie.document.angriff.SID.Value = SID ' aufgrund der laggenden Server bereits den District und die Stadt vorwählen. test1 = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$(ActiveCell.Offset(0, -4))) - 1) _ _ _ ' + " selected" test2 = ActiveCell.Offset(0, -6) ie.document.angriff.bezirkNr.Value = Right$(Str$(ActiveCell.Offset(0, -4)), Len(Str$( _ ActiveCell.Offset(0, -4))) - 1) ' + " selected" ie.document.angriff.stadt.Value = ActiveCell.Offset(0, -6) 'ie.document.all.angriffstrupp.Style.display = "inline" ' Plünderung wählen ie.document.angriff.angriffTyp(0).Checked = "Wahr" ' Killer einsetzen ie.document.angriff.gfnr_10.Value = Right$(Str$(uiStaerke), Len(Str$(uiStaerke)) - 1) raus = ie.document.angriff.submit() 'raus = ie.document.angriff.submit() Do While ie.busy DoEvents Loop titel = ie.document.Title If ie.document.Title = "e-sport.com - security -" Then a = MsgBox("CODE!", vbYes, "CODE") End If End Select Cells(ActiveCell.Row, 1).Select 'ActiveCell.Interior.ColorIndex = 46 ActiveCell.Offset(1, 0).Select Endezeit = Time() Dauer = (Endezeit - Startzeit2) * 100000 ZwZeit = Workbooks(sDName).Worksheets("Main").Cells(5, 2) / 1000 Zufallszeit = Rnd(1) * 3 While Dauer < ZwZeit + Zufallszeit Endezeit = Time() Dauer = (Endezeit - Startzeit2) * 100000 DoEvents Wend 'Startzeit2 = Time() 'Do While Int((Time() - Startzeit2) * 24 * 3600000) < Workbooks(sDName).Worksheets("Main"). _ Cells(5, 2) ' DoEvents 'Loop Wend ' Ende der inneren Schleife Cells(2, 1).Select Do While Int((Time() - Startzeit) * 24 * 3600) < Workbooks(sDName).Worksheets("Main").Cells(6, _ _ _ 2) DoEvents Loop Wend 'Ende der Angriffswelle ' End ' WechselDissi: sDissi = Str$(ulDissi) wD_URL2 = Right$(sDissi, Len(sDissi) - 1) wD_URL = "http://www.mafia1930.de/indexMember.php?tpl=district_verwalten&action=change&bezirk=" _ _ _ + wD_URL2 + "&sid=" + SID ie.navigate wD_URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop Application.Wait Now + TimeSerial(0, 0, 1) 'Wiederholung wg. der tollen Server ie.navigate wD_URL Do While ie.busy And Not ie.readystate = 4 DoEvents Loop ie.Visible = True Return 'End If End Sub Gefällt mir Teilen twittern
▲	pn

programmierer-forum.de Gast	13.07.2012, 15:26 zitieren Mach mit! Wenn Dir die Beiträge zum Thread "JavaScript und VBA-Programmierung Makro führt Aktion nicht aus" gefallen haben oder Du noch Fragen hast oder Ergänzungen machen möchtest, solltest Du Dich gleich bei uns anmelden: Registrierte Mitglieder genießen die folgenden Vorteile: ✔ kostenlose Mitgliedschaft ✔ keine Werbung ✔ direkter Austausch mit Gleichgesinnten ✔ neue Fragen stellen oder Diskussionen starten ✔ schnelle Hilfe bei Problemen ✔ Bilder und Videos hochladen ✔ und vieles mehr...
▲

	Re: √	Letzter Beitrag
Amazon Music im Browser: Tut uns leid. Wir können Ihre Aktion nicht abschließen Ich bekam bei Amazon Music online im Browser immer wieder mal die Fehlermeldung "Tut uns leid. Wir können Ihre Aktion nicht abschließen. Bitte versuchen Sie es später noch einmal." wenn ich ein Prime-Album oder Playlist abspielen wollte. Die... von mgutt	0 3.937	18.06.2016, 07:30 mgutt
Probleme mit dem gallery-Makro - nur ausgewählte Bilder Hallo, ich habe ein neues Problemchen: Ich will mit dem gallery-Macro nur Bilder anzeigen, welche mit "prob" beginnen (Bsp. prob_mar01.jpg). Der Code {gallery:include=prob*.jpg} bringt mir aber leider nicht... von Q-Man	0 314	18.08.2011, 05:35 Q-Man
TigerJython- EV3 Programmierung Folgende Aufgabe: Geg: A1 Blatt mit schwarzer ovaler Linie. Der Roboter soll innerhalb des Ovals ca. in der Mitte starten. Er soll dabei auf ein langes gerades Teilstück des Ovals schräg zufahren. Der Winkel in dem er auf die Linie trifft, soll ungefähr... [Allgemein]von aralgut	0 290	25.11.2019, 21:48 aralgut
Datalogging und on the fly programmierung Servus zusammen, ich hätte mal ne Frage zwecks Datalogging und RTP, und zwar bin ich in den Weiten des Netzes auf folgende Tutorials... von d3nso	4 391	24.07.2015, 12:15 DZoom
15% Rabatt auf App-Programmierung Bis Ende 2012 programmieren wir Apps mit 15% Rabatt. Wir leisten für Sie günstig die Entwicklung von mobilen Apps für Android und iOS aus einer Hand: - Beratung zu Mobilen Strategie - Design und Konzeption - Entwicklung und Programmierung - Platzierung... [Jobs & Stellenangebote]von Rashenter	0 337	21.11.2012, 15:18 Rashenter
Programmierung als Dienstleistung Hallo ins Forum. Von mir mal kein Angebot für Risikobeteiligung oder Partnerschaft, suche einfach Umsetzung meiner Idee gegen festes Honorar: Möchte Programmierung als Dienstleistung einkaufen. Basis ist eine vorhandene Datenbank im Format XLSX oder... [Projekte]von wischundweg	0 338	23.01.2015, 13:17 wischundweg
Smalltalk Programmierung Hallo, ich würde gerne wissen wie man in der Programmiersprache Smalltalk Klassen und Instance Methoden verwendet und wie sie diese Unterscheiden!? JAVA-Kenntnisse habe ich schon relativ gute. Sind Instancen und Objekte(wie bei Java) gleich? Kann hier... [Allgemein]von maechi	0 374	03.08.2013, 20:29 maechi
Tech 2-Programmierung Wer weiß,was man alles beim Insignia mit Tech2 umswitchen kann? Speziell interessiert mich der Warnsummer bei offener Tür,Anschnallwarner , Automatiklichtfunktion und die elektr.anklappb.Spiegel. Wer kennt sich... von cardoctor	5 2.796	24.04.2011, 18:33 R4MP
gesucht - Freelancer/in Web und Programmierung Projektbeschreibung: Für eine Klientin aus der Versicherungsbranche suchen wir eine/n erfahrene/n Programmierer/in. Schwerpunkte: PHP, Java-Script und MySQL-Datenbankanbindung Kurzbeschreibung der auszuführenden Arbeiten: Landing-Page mit... [Jobs & Stellenangebote]von gepixelmedia	0 284	29.08.2017, 11:00 gepixelmedia
Konferenz - SEO, Programmierung, StartUp Hallo Zusammen, Am 20./21. Mai findet in Hamburg die erste Developer Conference 2011 statt. Wie der Name bereits verrät, handelt die Konferenz rund um Themen in der Webentwicklung. Das Programm ist prall gefüllt mit hochwertigen Vorträgen und... [Allgemein]von devcon-hamburg	1 613	13.04.2011, 15:23 devcon-hamburg