Beiträge von Techmix

Techmix

Auch von mir alles Gute zu deinem Geburtstag!

Grüsse!

Techmix

...ach ja Laufen mit Shift - laufen Funktioniert im Verbund mit einer Ausdauer; sogar mit aufladezeit
Ganz vergessen gehabt

Und Danke! Der Editor war (so ähnlich) für Übungszwecken wegen den _IrrGui Funktionen gedacht - und nach und nach wirds sogar lauffähig. Momentan schlage ich mich immer noch mit dem Durchklicken Problem bei den IrrGuis rum - ist aber auch bald gefixt. Anschliessend will ich diesen Tag-Nacht Modus ausprobieren und dann nochmals die Steuerung etwas ändern - Das Jobsystem muß auch noch erweitert werden. Aber den Look werde ich so, oder so ähnlich, beibehalten - evtl eben noch viel mit 2D-Sprites und den sogenannten Cubes (Bausteine für Gebäude) Arbeiten.
...für Maps habe ich schon Vorlagen, die sind aber Riesig (256x256 Felder) - für diesen Zwang umbedingt soooo viel Zeit mit einem blöden Editor verbringen zu wollen Code ich Ihn gerade [Ironie]
Falls sich jemand mal das Mapfile angeschaut hat - diese ist komplett variabel gestaltet. Selbst die Gebäude und deren Blocks sowie dessen platzierungen sind in diesem einfachen Textfile vermerkt.

Techmix

@BB: Das mit der Cam-Steuerung (Pfeiltasten) ist gar nicht mal so schlecht... Nur wie realisiere ich das für Tasta+Maus / Joypad (Analogsticks evtl). Aber eben weil die meißten eh mit Tasta+Maus Spielen die Camera mit mmt zu regulieren. ODER auch nach einer gewissen Wegstrecke die Camera langsamm neu ausrichten...

@all:
Tag & Nacht wird Uhrzeitabhängig eingebaut dadurch ein 'Schattenspiel' (Morgens Ost etwa 05:00 Farbe: Gelb/Orange ; Mittags Top etwa 12:00 Farbe Gelb ; Abends West etwa 21:00 Farbe Rot ; Nachts Top Farbe Blaßblau). <- Vorschläge???
Mapping wird noch um Decals sowie mit Laternen Erweitert.

Techmix

Hey:D
Jaaaa, ich hab´s nicht so mit Grafiken... Habe die für den Character auch aus´m Netz, ist von GTA3. Diese habe ich anschliessend zurechtgeschnitten - und dabei ist iwie dieser Rand entstanden. Komischerweise ist er nicht auf allen Sprites zu sehen, ich habe einige Waffensprites selber Modifiziert und da ist manchmal kein Rand...
Aber Danke erstmal für das Lob:D
Wie gesagt hat GTAu3 nichts mehr mit dem alten Mafia zu tun, es orientiert sich an GTA2!
Ach und im Haus unten Rechts gibt es auch schon einen Auftrag...
Und die Kamera wollte ich noch ändern - der Code dafür ist auch schon im Script drinne, aber Auskommentiert... So wie ich es da versucht habe - wird eienem voll Übel

@all: Ich vergaß in der Datei: '*\GTAu3\DATA\Game.ini' 'ShowPanel' auf 1 zu setzen... Wenn ihr das macht erhaltet Ihr noch eine kleine GUI zum Konfigurieren der Irrlicht-Engine (sogar Schatten).

Techmix

Heute möchte ich mein neuestes Projekt vorstellen:

GTAu3
Eine freie GTA2 *Interpretation* in Au3

Vor etwa einem Monat wollte ich den Klassiker 'Mafia' (by Igelsoft) vom alten C64 nach AutoIt Konvertieren. Da Mafia (grössenteils) in Basic gehalten ist, mußte ich eigentlich nur den Code Sortieren, Leserlich gestalten und anschliessend eben Konvertieren (wohl eher Interpretieren) - dafür habe ich einen Map-Editor gebastelt, aber diese Oldscool Grafik ging mal garnicht... ALSO habe ich eigentlich nur ein Zeitgemässes Grafik-Setting gesucht, und wurde iwo im Netz fündig. GTA2 (by Rockstar Games) sollte es sein Anschliessend kam ich auf die Idee die 2D/3D Grafik zu übernehmen - so bin ich jetzt zu GTAu3 gekommen Es ist auch nur als eine 'Demo-Version' gedacht, um mal etwas Resonanz zu erhalten. UND GTAu3 hat nichtsmehr mit dem alten Mafia zu tun - ich habe es Komplett neu geschrieben und nur einige meiner Techniken (zum Ausbessern des C64 gedönse) beibehalten. Als Grafikengine nutze ich Irrlicht, sogar der Editor ist komlett mit Irrlicht realisiert wurden (aber auch nicht Fertig).

Nunja, es sind zwar gesammt über 9MB - aber daran sind eigentlich die Texturen schuld
SourceCode ist enthalten und ein SessionLoader für das GTAu3 SciTE *.session File.

Über etwas Resonanz würde ich mich freuen!

Download V0.10

Pics

[Blockierte Grafik: http://img6.imagebanana.com/img/2o77k7fc/thumb/EditorSettings.png]
[Blockierte Grafik: http://img6.imagebanana.com/img/il63pqj7/thumb/EditorTerrain.png]
[Blockierte Grafik: http://img6.imagebanana.com/img/wkebniuo/thumb/GameStartJob.png]
[Blockierte Grafik: http://img7.imagebanana.com/img/qlyv3qie/thumb/GameRennen.png]

Features:
Auch Joypad Steuerung möglich (noch kein Analog)
Setting-Panel
Game-Editor (Mit irrGUI´s)
Modulares 3D Mapping-System (Terrain & Buildings)
2D Sprite-System (Player, NPC´s, Items)
Job-System (ALPHA)
GTA-Like HUD
Einstellbare Settings für: (.ini Files)
* Map´s ´n Buildings
* Waffen
* Fahrzeuge
* Charaktere (Player/NPC´s)
* Steuerung (Tastatur&Maus/Joypad)
* HUD
* Job´s

InGame Steuerung:
ADSW / Cursortasten -- Bewegen
Shift -- Rennen
Space -- Benutzen / Aktion
Rechte Maustaste -- Waffe ziehen / einstecken
Mittlere Maustaste -- Waffe wechseln
Linke Maustaste -- Schiessen
R -- Waffe nachladen

Editor Steuerung:
Linke Maustaste -- Auswahl
Rechte Maustaste -- Auswahl löschen
Mausrad -- Zoom

Bekannte Fehler:
Editor:
* Nichtmals Halb-Fertig...
* Wenn MausCursor auf eine irrGUI klickt, veränert sich das Feld im Hintergrund
* Map-Setting lässt sich ändern, aber ich bekomme die Map nicht Released (Nodes,Meshes,Texturen,Collisionen)
damit ich sie mit den Änderungen NEU Laden/Anzeigen kann (Für Grösse X/Y)
* Terrain- und Bauteile lassen sich noch nicht Drehen und Spiegeln
* ...und noch viele andere

Spiel:
* Die Waffen schiessen noch durch Wände, aber es sind noch keine Explosionen und Einschläge drinne
* Die Collisionsabfrage ist noch total ätzend - man bleibt überall hängen
* Job´s lassen sich bereits annehmen und ableisten - ist aber noch frühe Alpha!
* Noch keine NPC´s und Fahrzeuge

Grüsse, und viel Spaß!

Techmix

Jap, bei mir ist es umgekehrt
die klassische Variante ist iwie schneller (2.3x)?!?

$sInputGekürzt geht nicht!! Keine Umlaute in Variablenbezeichnungen und Funktionen möglich!
Sonst finde ich dein Tut echt gut; ist so ziemlich das erste hier welches sich auf die Programmstruktur und -Leserlichkeit bezieht! Solltest du aber noch erweitern - da fehlen noch viele Punkte.

Grüsse!

Techmix

Aber ich
Jup bin auch dabei!

Techmix

Echt?!?
Bei mir gehts...
Probier mal den Anhang aus dem Post hier.

Grüsse!

Techmix

Jap;) Hatte ich!
War so ein 15Kb Wettbewerb gewesen.

Grüsse!

Techmix

Ich bin ja mal gespannt, hatte selber letztes Jahr mal ein kleines Strategiespiel geschrieben

Grüsse!

Techmix

Das ist wirklich komisch....
Ich habe die Geometrie mit Blender erstellt, und in Milkshape und auch in Blender werden mir die Texturen nur von innen angezeigt (auf WinXP & Win7)
Ich kann also erst die Texturen sehen, wenn ich 1 Plate aufklappe.
Aber wenn in Irrlicht alles gut ist, stellt es kein Problem mehr da.

Grüsse!

Techmix

Hallo!

Also, ich habe da ein Problem mit einer selber erstellten .obj Datei. Es handelt sich hierbei um einen einfachen 6-Seitigen Würfel der aus 6 'Plates' und 6 'Materialien' besteht. In der .mtl sind auch alle verwendeten Texturen eingetragen und auch vorhanden - Aber alle Texturen werden auf der falschen Seite der 'Plates' angezeigt und scheinen nicht durch die Plates durch. Somit sieht man nur einen dunklen Würfel...

0B00.obj

Code

# OBJ File: 0B00.obj


mtllib 0B00.mtl


g Boden
v 1 0 -1
v 1 0 0
v 0 0 0
v 0 0 -1
usemtl _Boden
s 1
f 1 4 3 2


g Deckel
v 1 1 -1
v 1 1 0
v 0 1 0
v 0 1 -1
usemtl _Deckel
f 5 8 7 6


g Nord
v 1 1 -1
v 1 0 -1
v 0 0 -1
v 0 1 -1
usemtl _Nord
f 9 12 11 10


g Ost
v 1 0 -1
v 1 0 0
v 1 1 0
v 1 1 -1
usemtl _Ost
f 13 16 15 14


g Sued
v 1 1 0
v 1 0 0
v 0 0 0
v 0 1 0
usemtl _Sued
f 17 20 19 18


g West
v 0 0 -1
v 0 0 0
v 0 1 0
v 0 1 -1
usemtl _West
f 21 24 23 22

Alles anzeigen

0B00.mtl

Code

# MTL File: 0B00.mtl


newmtl _Boden
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 65.bmp


newmtl _Deckel
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 69.bmp


newmtl _Nord
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 88.bmp


newmtl _Ost
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 93.bmp


newmtl _Sued
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 69.bmp


newmtl _West
illum 2
Kd 0.800000 0.800000 0.800000
Ka 0.200000 0.200000 0.200000
Ks 0.000000 0.000000 0.000000
Ke 0.000000 0.000000 0.000000
Ns 0.000000
map_Kd 65.bmp

Alles anzeigen

Was habe ich falsch gemacht???

Grüsse!

Techmix

entferne mal die Namebox Funktionen, dann Lagt er nicht mehr so dolle.

Techmix

Find ich auch gut! besonders das erste Example ist interessant, da könnt man gleich was 'Drum-Rum' Scripten

Grüsse!

[EDIT]
Garfik ist beabsichtigt?!? Aber die Namebox frisst bei mir viel Leistung - ich Denke eben in den GDI+ Funktionen liegt hier der Hund begraben.

Techmix

Nabend!
Auf dem ersten Blick würde ich sagen, das du die Globale Variable VOR allen Funktionen Deklarieren mußt.

Spoiler anzeigen

[autoit]

global $dllh
func yacas_init()
local $re
$dllh = dllopen("yacasdll.dll")
$re = dllcall($dllh,"none","yacas_init")
; writeln("init>"&@error)
endfunc

[/autoit] [autoit][/autoit] [autoit]

func yacas_eval($s)
local $re
$ll = 100;try this
$re = dllcall($dllh,"none","yacas_eval","str:cdecl",$s)
; writeln("eval>"&@error)
endfunc

[/autoit] [autoit][/autoit] [autoit]

func yacas_result()
local $re
$re = dllcall($dllh,"str:cdecl","yacas_result")
; writeln("result>"&@error)
return $re[0]
endfunc

[/autoit] [autoit][/autoit] [autoit]

yacas_init()
yacas_eval("1+1")
writeln(yacas_result())
dllclose($dllh)

[/autoit]

Versuche das mal, und gib anschliessend Resonaz ob es nur an der Deklarierung lag. Ausserdem würde ich das DllClose anders machen.

Grüsse!

Techmix

Nabend!
Ich habe zwar nicht ganz verstanden was das Ziel des Spiels sein soll - aber mal etwas anderes!
Über iwelche 'LAG´s' kann ich micht nicht beklagen (Win7x64). Ich werde den Fortschritt verfolgen, bin gespannt was noch daraus wird

@FKH87: Zu deinem Vorschlag zur Irrlicht-Engine in 2D: Die hat ein ziemlich gräßliches 2D Rendering, die Texturen sehen Pixelig aus und es gibt keinen Smoothing Modus. In 2D schwöre ich immer noch auf Moritz seine QuickDraw, die Rendert schnell & Hübsch und die Befehle sind einfach aufgebaut

@all: ...verdammt ich hatte doch mal ein Script erstellt worin man die 2D-Grafikengine wechseln konnte (GDI+, Irrlicht2D, QuickDraw). SpaceTrek hieß es, hatte es mal hier im Forum - aber der Link ist Down. Hat noch jemand diese Datei????

Grüsse!

Techmix

Vielen Dank an alle!
Mal ganz ehrlich, ich habe ja schon 2 Kids und die waren auch mal gaaanz klein - aber keines war so ruhig wie Sammy (momentan)
Und ich bin tatsächlich im OP nicht aus den Latschen gekippt War zwar echt Krass und auch Blutig aber auch echt Angsteinflößend - hat sich im Endeffekt gelohnt! -Hübsch Hingeferkelt-

Viele liebe Grüsse!

[EDIT]
Ein Bild:
[Blockierte Grafik: http://s7.directupload.net/images/120404/bxhuxy4c.jpg]

Techmix

Hah, soviel Anteilnahme thx
Sam-Luca = Sam ist sein Rufname (wahrscheinlich eher Sammy)
Mein Name: Sascha Alexander Mahnke (SAM)

Wortspiel

Techmix

Nabend
Mein (unser) 3.ter (und definitif letzter) Nachwuchs ist Heute um 9:46 zur Welt gekommen!
Es war eine Kaiserschnittgeburt und ich war sogar mit im OP (krasse Sache), jedenfalls ist es ein Junge mit dem Namen 'Sam-Luca' geworden.
Eigentlich dachte ich das ich (wir) schon soweit durch sind mit der Nachwuchsplanung, da meine anderen beiden bereits 9 und 7 Jahre alt (jung) sind, aber war wohl nix

Nunja ich habe jedenfalls die ganze Woche frei,
und heute wird gefeiert

Grüsse!

Techmix

Ich wieder
Ich habe den Browser-Wrapper jetzt soweit, das man die Befehle:
_BrowserCreate(),
_BrowserNavigate($oBrowser, "www.autoit.de") und
_BrowserQuit($oBrowser)
auf alle 3 Browser verwenden kann. Ich habe eine 'Demo' zugefügt welche jeden Browser einzeln startet und jeweils 6 Seiten besucht; und ein Endergebniss für die benötigte Zeit pro Browser erscheint.

**Das sich K-Meleon nicht richtig automatisieren ließ lag an der V1.7a2 - jetzt nutze ich wieder die V1.60 und kann promt Navigieren!

Der neue Source

[autoit]

#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.8.1
Author: Techmix

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Browser UDF
Funktionen ähnlich denen aus der <IE.au3>.
Steuert den Internet Explorer, FireFox und K-Meleon

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ Den Browser duch ein K-Meleon Macro mithilfe von Hotkeys steuern.
;~
;~
;~

[/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Includes
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

#include-once
#include <Array.au3>
#include <GuiStatusBar.au3>
#include <IE.au3>
#include "FF.au3"
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 7)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Globals
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Global Const $__BrowserAU3VersionInfo[6] = ["V", 0, 1, 0, "20120401", "V0.1-0"]
Global Const $__BrowserLSFW_LOCK = 1, $__BrowserLSFW_UNLOCK = 2
Global $__BrowserLoadWaitTimeout = 300000 ; 5 Minutes
Global $__BrowserAU3Debug = False
Global $__BrowserAU3V1Compatibility
Global $__BrowserAU3Debug_UseOldDLLCall = False
Global $__BrowserErrorNotify = True
Global $oBrowserErrorHandler, $sBrowserUserErrorHandler
Global _; Com Error Handler Status Strings
$BrowserComErrorNumber, _
$BrowserComErrorNumberHex, _
$BrowserComErrorDescription, _
$BrowserComErrorScriptline, _
$BrowserComErrorWinDescription, _
$BrowserComErrorSource, _
$BrowserComErrorHelpFile, _
$BrowserComErrorHelpContext, _
$BrowserComErrorLastDllError, _
$BrowserComErrorComObj, _
$BrowserComErrorOutput
;
; Enums
;
Global Enum _; Error Status Types
$_BrowserStatus_Success = 0, _
$_BrowserStatus_GeneralError, _
$_BrowserStatus_ComError, _
$_BrowserStatus_InvalidDataType, _
$_BrowserStatus_InvalidObjectType, _
$_BrowserStatus_InvalidValue, _
$_BrowserStatus_LoadWaitTimeout, _
$_BrowserStatus_NoMatch, _
$_BrowserStatus_AccessIsDenBrowserd, _
$_BrowserStatus_ClBrowserntDisconnected
Global Enum Step * 2 _; NotificationLevel
$_BrowserNotifyLevel_None = 0, _
$_BrowserNotifyNotifyLevel_Warning = 1, _
$_BrowserNotifyNotifyLevel_Error, _
$_BrowserNotifyNotifyLevel_ComError
Global Enum Step * 2 _; NotificationMethod
$_BrowserNotifyMethod_Silent = 0, _
$_BrowserNotifyMethod_Console = 1, _
$_BrowserNotifyMethod_ToolTip, _
$_BrowserNotifyMethod_MsgBox

[/autoit] [autoit][/autoit] [autoit]

Global Enum _; Used Browser Method
$_Browser_IExp, _
$_Browser_FFox, _
$_Browser_KMel, _
$_Browser_IGet
Global $__Browser
Global Enum Step * 2 _; Browser Performance Modes
$_BrowserPerformance_UseSquid = 1, _
$_BrowserPerformance_SquidRamSize32, _
$_BrowserPerformance_SquidRamSize64, _
$_BrowserPerformance_SquidRamSize128, _
$_BrowserPerformance_SquidCacheSize64, _
$_BrowserPerformance_SquidCacheSize128, _
$_BrowserPerformance_SquidCacheSize256, _
$_BrowserPerformance_UseRamDisk, _
$_BrowserPerformance_RamDiskSize16, _
$_BrowserPerformance_RamDiskSize32, _
$_BrowserPerformance_RamDiskSize64
Global $__BrowserPerformance = 0

[/autoit] [autoit][/autoit] [autoit]

Global $_FFox_ObjTyp, $_FFox_Element

[/autoit] [autoit][/autoit] [autoit]

Global $_KMeleonPath = @ScriptDir&"\K-Meleon1.6.0\", $_KMeleonExe = "k-meleon.exe"
;~ Global $_KMeleonPath = @ScriptDir&"\K-Meleon1.7a2\", $_KMeleonExe = "k-meleon.exe"
_BrowserDemo()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Testfunktion
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func _BrowserDemo()
Local $Time1Start, $Time2Start, $Time3Start
Local $Time1Navi, $Time2Navi, $Time3Navi
; IExp
$Time1Start = TimerInit()
$__Browser = $_Browser_IExp
$oBrowser=_BrowserCreate()
$Time1Start = int(TimerDiff($Time1Start))
$Time1Navi = TimerInit()
_BrowserNavigate($oBrowser, "www.autoit.de")
_BrowserNavigate($oBrowser, "http://de.wikipedia.org/wiki/Wikipedia:Hauptseite")
_BrowserNavigate($oBrowser, "http://www.autoitscript.com/forum/")
_BrowserNavigate($oBrowser, "http://sourceforge.net/")
_BrowserNavigate($oBrowser, "http://www.youtube.com")
_BrowserNavigate($oBrowser, "www.facebook.de")
_BrowserQuit($oBrowser)
$Time1Navi = int(TimerDiff($Time1Navi) / 6)

[/autoit] [autoit][/autoit] [autoit]

; FFox
$Time2Start = TimerInit()
$__Browser = $_Browser_FFox
$oBrowser=_BrowserCreate()
$Time2Start = int(TimerDiff($Time2Start))
$Time2Navi = TimerInit()
_BrowserNavigate($oBrowser, "www.autoit.de")
_BrowserNavigate($oBrowser, "http://de.wikipedia.org/wiki/Wikipedia:Hauptseite")
_BrowserNavigate($oBrowser, "http://www.autoitscript.com/forum/")
_BrowserNavigate($oBrowser, "http://sourceforge.net/")
_BrowserNavigate($oBrowser, "http://www.youtube.com")
_BrowserNavigate($oBrowser, "www.facebook.de")
_BrowserQuit($oBrowser)
$Time2Navi = int(TimerDiff($Time2Navi) / 6)

[/autoit] [autoit][/autoit] [autoit]

; KMel
$Time3Start = TimerInit()
$__Browser = $_Browser_KMel
$oBrowser=_BrowserCreate()
$Time3Start = int(TimerDiff($Time3Start))
$Time3Navi = TimerInit()
_BrowserNavigate($oBrowser, "www.autoit.de")
_BrowserNavigate($oBrowser, "http://de.wikipedia.org/wiki/Wikipedia:Hauptseite")
_BrowserNavigate($oBrowser, "http://www.autoitscript.com/forum/")
_BrowserNavigate($oBrowser, "http://sourceforge.net/")
_BrowserNavigate($oBrowser, "http://www.youtube.com")
_BrowserNavigate($oBrowser, "www.facebook.de")
_BrowserQuit($oBrowser)
$Time3Navi = int(TimerDiff($Time3Navi) / 6)

[/autoit] [autoit][/autoit] [autoit]

$sText = _
"Browsertest Ergebnisse" & @CRLF & @CRLF & _
"Internet Explorer"& @CRLF & _
" Start : " & $Time1Start & "ms" & @CRLF & _
" Navigate : " & $Time1Navi & "ms" & @CRLF & @CRLF & _
"FireFox" & @CRLF & _
" Start : " & $Time2Start & "ms" & @CRLF & _
" Navigate : " & $Time2Navi & "ms" & @CRLF & @CRLF & _
"K-Meleon" & @CRLF & _
" Start : " & $Time3Start & "ms" & @CRLF & _
" Navigate : " & $Time3Navi & "ms" & @CRLF
MsgBox(0,"Ergebniss", $sText)
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Hauptfunktionen
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ $oIE = _IECreate ("www.autoit.de")
Func _BrowserCreate($s_Url = "about:blank", $f_tryAttach = 0, $f_visible = 1, $f_wait = 1, $f_takeFocus = 1)
if $__Browser = "" then $__Browser = $_Browser_IExp

[/autoit] [autoit][/autoit] [autoit]

Switch $__Browser
Case $_Browser_IExp
Return _IECreate($s_Url, $f_tryAttach, $f_visible, $f_wait, $f_takeFocus)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
;~ Func _FFStart($sURL = "about:blank", $sProfile = "default", $iMode = 1, $bHide = False, $IP = "127.0.0.1", $iPort = 4242)
Local $sURL = $s_Url, $sProfile = "default", $iMode = 1, $bHide = False, $IP = "127.0.0.1", $iPort = 4242
if $f_visible = 0 then $bHide = True
if $f_tryAttach = 1 then $iMode = 2
$_FF = _FFStart($sURL, $sProfile, $iMode, $bHide, $IP, $iPort)
if $f_wait = 1 then _BrowserLoadWait($_FF)
Return $_FF

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel
Local $_oBrowser_State, $_oBrowser_Handle, $_oBrowser_Pid, $_oBrowser_URL = "about:blank"
; $f_visible
if $f_visible = 0 Then $_oBrowser_State = @SW_HIDE
if $f_visible = 1 Then $_oBrowser_State = @SW_MAXIMIZE

[/autoit] [autoit][/autoit] [autoit]

; $f_tryAttach
if $f_tryAttach = 0 or ProcessExists($_KMeleonExe) = 0 then
$_oBrowser_Pid = run($_KMeleonPath&$_KMeleonExe&" about:blank", $_KMeleonPath, $_oBrowser_State, 1+2+4)
Elseif $f_tryAttach = 1 and ProcessExists($_KMeleonExe) then
$_oBrowser_Pid = ProcessExists($_KMeleonExe)
EndIf

[/autoit] [autoit][/autoit] [autoit]

WinWaitActive("[CLASS:KMeleon Browser Window]", "")
;~ WinWaitActive("[CLASS:MozillaWindowClass; INSTANCE:1]", "")
;~ Do
;~ Sleep(5)
;~ Until ProcessExists("k-meleon.exe")
;~ WinWaitActive("", "about:blank (K-Meleon)")
$var = WinList()
For $i = 1 To $var[0][0]
If $var[$i][0] = "about:blank (K-Meleon)" Then
;~ $_oBrowser_Pid = WinGetProcess($var[$i][0])
;~ $_oBrowser_Pid2 = WinGetProcess($var[$i][0])
$_oBrowser_Handle = $var[$i][1]
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

; Navigate URL
_BrowserNavigate($_oBrowser_Handle, $s_Url, $f_wait)
;~ ; $f_wait
;~ if $f_wait = 1 then _BrowserLoadWait($_oBrowser_Handle)

[/autoit] [autoit][/autoit] [autoit]

; $f_takeFocus
if $f_takeFocus = 1 then WinActivate($_oBrowser_Handle)

[/autoit] [autoit][/autoit] [autoit]

Return SetError(0, 0, $_oBrowser_Handle)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oIE = _IECreateEmbedded ("www.autoit.de")
Func _BrowserCreateEmbedded()
if $__Browser = "" then $__Browser = $_Browser_IExp

[/autoit] [autoit][/autoit] [autoit]

Switch $__Browser
Case $_Browser_IExp
Return _IECreateEmbedded()

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IENavigate ($oIE, "http://www.autoitscript.com/forum/index.php?")
Func _BrowserNavigate(ByRef $o_object, $s_Url, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IENavigate($o_object, $s_Url, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Local $sURL = $s_Url, $bLoadWait = True
if $f_wait = 0 Then $bLoadWait = True
Return _FFOpenURL($s_Url, $bLoadWait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel
; Navigation
local $Data = __WinList($o_object)
if isarray($Data) then
ControlFocus($o_object, "", "[CLASS:Edit; INSTANCE:1]")
ControlSetText($o_object, "", "[CLASS:Edit; INSTANCE:1]", $s_Url)
;~ ControlSend($o_object, "", "[CLASS:Edit; INSTANCE:1]", $s_Url)
controlsend($o_object, "", "[CLASS:Edit; INSTANCE:1]", @cr)
dim $text
; $f_wait
if $f_wait = 1 then _BrowserLoadWait($o_object)

[/autoit] [autoit][/autoit] [autoit]

Return SetError(0, 0, 1)
Else
Return SetError(1, 1, 0)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IELoadWait ($oIE)
Func _BrowserLoadWait(ByRef $o_object, $i_delay = 0, $i_timeout = $__BrowserLoadWaitTimeout)
Switch $__Browser
Case $_Browser_IExp
Return _IELoadWait($o_object, $i_delay, $i_timeout)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
if $i_delay > 0 then
$_Time = timerinit()
do
Sleep(2)
Until timerdiff($_Time) > $i_delay
EndIf
Return _FFLoadWait($i_timeout)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel
local $_Time

[/autoit] [autoit][/autoit] [autoit]

; $i_delay
if $i_delay > 0 then
$_Time = timerinit()
do
Sleep(2)
Until timerdiff($_Time) > $i_delay
EndIf

[/autoit] [autoit][/autoit] [autoit]

dim $_Time = timerinit(), $Data=""
do
Sleep(2)
$Data = _BrowserGetStat($o_object)
if ($Data = "" and timerdiff($_Time) > $i_timeout) or ProcessExists($_KMeleonExe) = 0 then Return SetError(1, 1, 0)
Until $Data = 1

[/autoit] [autoit][/autoit] [autoit]

Return SetError(0, 0, 1)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IELoadWaitTimeout (60000)
Func _BrowserLoadWaitTimeout($i_timeout = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IELoadWaitTimeout($i_timeout)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
if $i_timeout = -1 then Return $__BrowserLoadWaitTimeout
$__BrowserLoadWaitTimeout = $i_timeout
Return 1

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel
if $i_timeout = -1 then Return $__BrowserLoadWaitTimeout
$__BrowserLoadWaitTimeout = $i_timeout
Return 1

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet
if $i_timeout = -1 then Return $__BrowserLoadWaitTimeout
$__BrowserLoadWaitTimeout = $i_timeout
Return 1

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oSubmit = _IEGetObjByName ($oIE, "submitExample")
Func _BrowserGetObjByName(ByRef $o_object, $s_Id, $i_index = 0)
Switch $__Browser
Case $_Browser_IExp
Return _IEGetObjByName($o_object, $s_Id, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
$_FFox_ObjTyp = "name"
$_FFox_Element = $s_Id
Return _FFObjGet($s_Id, "name", $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oSubmit = _IEGetObjByID ($oIE, "line1")
Func _BrowserGetObjById(ByRef $o_object, $s_Id)
Switch $__Browser
Case $_Browser_IExp
Return _IEGetObjByID($o_object, $s_Id)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
$_FFox_ObjTyp = "id"
$_FFox_Element = $s_Id
Return _FFObjGet($s_Id, "id")

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEAction ($oSubmit, "click")
Func _BrowserAction(ByRef $o_object, $s_action)
Switch $__Browser
Case $_Browser_IExp
Return _IEAction($o_object, $s_action)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Switch $s_action
Case "click"
;~ $_FFox_ObjTyp = "name"
;~ $_FFox_Element = $s_Id
Return _FFClick($_FFox_Element, $_FFox_ObjTyp)
Case "enable"
Return 0
Case "disable"
Return 0
Case "focus"
Return 0
Case "cut"
Return 0
Case "paste"
Return 0
Case "delete"
Return 0
Case "saveas"
Return 0
Case "selectall"
Return 0
Case "unselect"
Return 0
Case "blur"
Return 0
Case "quit"
Return _FFQuit()

[/autoit] [autoit][/autoit] [autoit]

Case "refresh"
$s_action = "reload"
Case "printdefault"
$s_action = "print"

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
;~ Func _FFAction($sAction, $vOption = "", $vOption2 = "", $bLoadWait = True)
Return _FFAction($s_action)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oImg = _IEImgGetCollection ($oIE, 4)
Func _BrowserImgGetCollection(ByRef $o_object, $i_index = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IEImgGetCollection($o_object, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
; Not Found

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEImgClick ($oIE, "AutoItImage", "name")
Func _BrowserImgClick(ByRef $o_object, $s_linkText, $s_mode = "src", $i_index = 0, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEImgClick($o_object, $s_linkText, $s_mode, $i_index, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Return _FFImageClick($s_linkText, $s_mode)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oLinks = _IELinkGetCollection ($oIE)
Func _BrowserLinkGetCollection(ByRef $o_object, $i_index = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IELinkGetCollection($o_object, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Return _FFLinksGetAll()

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IELinkClickByIndex ($oIE, 2)
Func _BrowserLinkClickByIndex(ByRef $o_object, $i_index, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IELinkClickByIndex($o_object, $i_index, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Return _FFLinkClick($i_index, "index")

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IELinkClickByText ($oIE, "user forum")
Func _BrowserLinkClickByText(ByRef $o_object, $s_linkText, $i_index = 0, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IELinkClickByText($o_object, $s_linkText, $i_index, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
Return _FFLinkClick($s_linkText, "title")

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEPropertyGet ($oIE, "addressbar")
Func _BrowserPropertyGet(ByRef $o_object, $s_property)
Switch $__Browser
Case $_Browser_IExp
Return _IEPropertyGet($o_object, $s_property)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEPropertySet ($oIE, "statustext", "Schau was ich machen kann")
Func _BrowserPropertySet(ByRef $o_object, $s_property, $newvalue)
Switch $__Browser
Case $_Browser_IExp
Return _IEPropertySet($o_object, $s_property, $newvalue)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEQuit ($oIE)
Func _BrowserQuit(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEQuit($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox
_FFQuit()
Return 1

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel
WinClose("[CLASS:KMeleon Browser Window]","")
Return 1

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEIsFrameSet ($oIE)
Func _BrowserIsFrameSet(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEIsFrameSet($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oFrames = _IEFrameGetCollection ($oIE)
Func _BrowserFrameGetCollection(ByRef $o_object, $i_index = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFrameGetCollection($o_object, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oFrame = _IEFrameGetObjByName ($oIE, "iFrameTwo")
Func _BrowserFrameGetObjByName(ByRef $o_object, $s_Name)
Switch $__Browser
Case $_Browser_IExp
Return _IEFrameGetObjByName($o_object, $s_Name)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; HTML / Text Funktionen
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ $sHTML = _IEBodyReadHTML ($oIE)
Func _BrowserBodyReadHTML(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEBodyReadHTML($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEBodyWriteHTML ($oFrame, "Hello <b>iFrame!</b>"
Func _BrowserBodyWriteHTML(ByRef $o_object, $s_html)
Switch $__Browser
Case $_Browser_IExp
Return _IEBodyWriteHTML($o_object, $s_html)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $sText = _IEBodyReadText ($oIE)
Func _BrowserBodyReadText(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEBodyReadText($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Form Funktionen
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormElementCheckboxSelect($oForm, "Basketball", "", 1, "byValue")
Func _BrowserFormElementCheckBoxSelect(ByRef $o_object, $s_string, $s_Name = "", $f_select = 1, $s_mode = "byValue", $f_fireEvent = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementCheckboxSelect($o_object, $s_string, $s_Name, $f_select, $s_mode, $f_fireEvent)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oQuery = _IEFormElementGetCollection ($oForm, 2)
Func _BrowserFormElementGetCollection(ByRef $o_object, $i_index = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementGetCollection($o_object, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oQuery = _IEFormElementGetObjByName ($oForm, "q")
Func _BrowserFormElementGetObjByName(ByRef $o_object, $s_Name, $i_index = 0)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementGetObjByName($o_object, $s_Name, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormElementGetValue ($oText))
Func _BrowserFormElementGetValue(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementGetValue($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormElementOptionSelect($oSelect, "Freepage", 1, "byText")
Func _BrowserFormElementOptionSelect(ByRef $o_object, $s_string, $f_select = 1, $s_mode = "byValue", $f_fireEvent = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementOptionSelect($o_object, $s_string, $f_select, $s_mode, $f_fireEvent)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ ($oForm, "Flugzeug", "Radio-Beispiel", 1, "byValue")
Func _BrowserFormElementRadioSelect(ByRef $o_object, $s_string, $s_Name, $f_select = 1, $s_mode = "byValue", $f_fireEvent = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementRadioSelect($o_object, $s_string, $s_Name, $f_select, $s_mode, $f_fireEvent)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormElementSetValue ($oText, "Hey! Es funktioniert!")
Func _BrowserFormElementSetValue(ByRef $o_object, $s_newvalue, $f_fireEvent = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormElementSetValue($o_object, $s_newvalue, $f_fireEvent)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oForm = _IEFormGetCollection ($oIE, 0)
Func _BrowserFormGetCollection(ByRef $o_object, $i_index = -1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormGetCollection($o_object, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ $oForm = _IEFormGetObjByName ($oIE, "f")
Func _BrowserFormGetObjByName(ByRef $o_object, $s_Name, $i_index = 0)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormGetObjByName($o_object, $s_Name, $i_index)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormImageClick ($oIE, "imageExample", "name")
Func _BrowserFormImageClick(ByRef $o_object, $s_linkText, $s_mode = "src", $i_index = 0, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormImageClick($o_object, $s_linkText, $s_mode, $i_index, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormReset ($oForm)
Func _BrowserFormReset(ByRef $o_object)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormReset($o_object)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

;~ _IEFormSubmit ($oForm)
Func _BrowserFormSubmit(ByRef $o_object, $f_wait = 1)
Switch $__Browser
Case $_Browser_IExp
Return _IEFormSubmit($o_object, $f_wait)

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_FFox

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_KMel

[/autoit] [autoit][/autoit] [autoit]

Case $_Browser_IGet

[/autoit] [autoit][/autoit] [autoit]

EndSwitch

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Fehlende Funktionen
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

;~ $oDoc = _IEDocGetObj ($oIE)
;~ _IEErrorHandlerRegister ("MeineFehlerroutine")
;~ _IEErrorHandlerDeregister ()
;~ _IEErrorNotify (True)
;~ _IEHeadInsertEventScript ($oIE, "document", "onclick", "alert('Jemand hat auf das Dokument geklickt!');")
;~ $oTable = _IETableGetCollection ($oIE)
;~ $aTableData = _IETableWriteToArray ($oTable, True)
;~ $oElements = _IETagNameAllGetCollection ($oIE)
;~ $oInputs = _IETagNameGetCollection ($oIE, "input")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

; ----------------------------------------------------------------------------------------------------------------------------------
; Unter-Funktionen
; ----------------------------------------------------------------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

Func __WinList($data)
local $sData
if IsHWnd($data) then
$sData = 1
Else
$sData = 0
EndIf

[/autoit] [autoit][/autoit] [autoit]

$var = WinList()
For $i = 1 To $var[0][0]
If $var[$i][$sData] = $data Then
dim $Return[3] = [$var[$i][0], $var[$i][1], WinGetProcess($var[$i][0])]
return $Return
EndIf
Next
return 0
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _BrowserGetStat($sHandle = "", $iLoops = 10)
Local $Loop = 0, $handle, $txt, $txt2, $CPULast=10
$CPULast = round((10-($CPULast/10)),0)
Local $s_Txt, $a_Txt[5] = [0, 0, 0, 0, 0]
Local $handle = ControlGetHandle($sHandle, "", "[CLASS:msctls_statusbar32; INSTANCE:1]")

[/autoit] [autoit][/autoit] [autoit]

; K-Meleon Abfrage
Do
$Loop += 1
$txt = _GUICtrlStatusBar_GetText($handle, 0)
$txt2 &= @crlf & $txt
$a_Txt[0] = $a_Txt[1]
$a_Txt[1] = $a_Txt[2]
$a_Txt[2] = $a_Txt[3]
$a_Txt[3] = $a_Txt[4]
$a_Txt[4] = $txt
$s_Txt = $a_Txt[0] & $a_Txt[1] & $a_Txt[2] & $a_Txt[3] & $a_Txt[4]
Sleep($CPULast)
Until $Loop >= $iLoops or $s_Txt = "BereitBereitBereitBereitBereit"
if $s_Txt = "BereitBereitBereitBereitBereit" then Return 1

[/autoit] [autoit][/autoit] [autoit]

Return $txt2
EndFunc ;==>_BrowserGetStat

[/autoit]

Hier habe eine RAR-Datei vorbereitet, welche die Portablen Browser: FireFox11 & K-Meleon1.60 sowie die benötigte FF.au3 (leicht Modifiziert) und das bereits installierte MozRepl Add beinhaltet: Link
Ich versuche den Browser-Wrapper soweit zu bekommen das wenigstens der FF mit der Syntax des IE zu steuern ist - bei K-Meleon wird´s schon schwieriger mit vielen Funktionen. Ausserdem möchte ich die Portablen Browser so fix wie möglich durch die Settings einstellen, da werde ich nochmals Nachhaken müssen...

Mich würden die benötigten Zeiten auf euren Systemen interessieren

Oki, Grüsse!

Beiträge von Techmix

Alina hat Geburtstag

GTAu3 (Irrlicht)

GTAu3 (Irrlicht)

GTAu3 (Irrlicht)

GTAu3 (Irrlicht)

[Tutorial] Sauber Programmieren

Fußball-Europameisterschaft (Tippspiel)

StrategieSpiel

StrategieSpiel

StrategieSpiel

3D-Modell Problem (.obj & .mtl)

3D-Modell Problem (.obj & .mtl)

Grafik Engine Erstellen

Grafik Engine Erstellen

wie yacas dll unter au3 nutzen?

meincraft -> Block Fantasy I - Sunrise

Juhu!

Juhu!

Juhu!

K-Meleon