Beiträge von Techmix

Techmix

Hoppla, da hatte ich wohl was verwechselt

Techmix

Also ich hatte NIE Probleme mit den Rechten meiner Programme!

[Privat]
Du hast dein Programm erstellt - also gehört es auch dir. Du kannst es veröffentlichen wo und wie du willst. ABER du solltest dann die 'GPL' anwenden und es als 'Closed-Source' deklarieren - somit bist du vom Gesetz her vor Scriptklau geschützt.

[Gewerblich]
Prinizpiell ist eh dein geistiges Eigentum, und solange du z.B. deinen 'Kunden' nur die Nutzungsrechte verkaufst - bist du immer auf der sicheren Seite!
Anders ist es wenn du für einen Kunden ein Auftrag erledigst, dann sind die geistigen Rechte immer noch bei dir - aber der Kunde hat Besitzansprüche, und du kannst dein Script nicht weitervermarkten...
ODER du sagst eben gleich das du Ihm nur ein Nutzungsrecht für das Programm verkaufst, dann kannst du aber nicht soviel verlangen - es aber weitervermarkten.

Wie gesagt, hatte noch nie Probleme mit den Rechten meiner Programme!
Grüsse!

Techmix

OK - hier ist die V0.05b.
Link

Grüsse!

Techmix

Ich lege mal das Script dazu. Eigentlich will ich mir eine Browser 'UDF' basteln, wo ich angeben kann welcher Browser die Aktionen durchführt. Alles mit der IE-Syntax - weil besser beschrieben Ich wollte den IE, FF & K-Meleon nutzen; später vielleicht alles noch mit InetGet&Co realisieren....

Spoiler anzeigen

[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][/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

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

Global $_BrowserPath = @ScriptDir&"\K-Meleon1.6.0\", $_BrowserExe = "k-meleon.exe"

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

$__Browser = $_Browser_KMel
$oBrowser=_BrowserCreate("www.google.de")
_BrowserNavigate($oBrowser, "www.autoit.de")
_BrowserNavigate($oBrowser, "www.gmx.de")

[/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

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

Case $_Browser_KMel
Local $_oBrowser_State, $_oBrowser_Handle, $_oBrowser_Pid, $_oBrowser_URL = "about:blank"

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

; $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($_BrowserExe) = 0 then
$_oBrowser_Pid = run($_BrowserPath&$_BrowserExe&" " & $_oBrowser_URL, $_BrowserPath, $_oBrowser_State, 1+2+4)
Elseif $f_tryAttach = 1 and ProcessExists($_BrowserExe) then
$_oBrowser_Pid = ProcessExists($_BrowserExe)
EndIf

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

WinWaitActive("[CLASS:KMeleon Browser Window]")
$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]

;~ _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

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

Case $_Browser_KMel
; Navigation
local $Data = __WinList($o_object)
if isarray($Data) then
;~ StdinWrite($Data[0], $s_Url& @CRLF )
;~ ; Aufruf ohne zweites Argument schliesst den Stream
;~ StdinWrite($Data[0])

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

controlclick($o_object, "", "[CLASS:Edit; INSTANCE:1]", "", 1)
Sleep(100)
send("{BS}")
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

[/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($_BrowserExe) = 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

[/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 = _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

[/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

[/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

[/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

[/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

[/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

[/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

[/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

[/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

[/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]

;~ _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]

;~ $oIE = _IECreateEmbedded ()
;~ $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] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Einfach nur die Variable '$__Browser' mit dem gewünschten Browser belegen ($_Browser_IExp, $_Browser_FFox, $_Browser_KMel) sonst wird als Standart der IE gesetzt. Eine Portable K-Meleon Version (V1.60) muß sich im Scriptverzeichniss unter '*\K-Meleon1.6.0' befinden.
Wie gesagt WILL ich daraus eine UDF basteln - habe bislang nur die IE-Befehle Kopiert damit ich die anderen Browserbefehle einfach einsetzen kann, und mit K-Meleon wollte ich beginnen...

Hat jemand eine Idee??
Kann ich nicht wie beim IE den K-Meleon als Objekt ansprechen??

[EDIT]
Man kann einfach den Source ausführen, dann erstellt er ein Browserfenster und Navigiert durch 3 Seiten - und Fertig.

[EDIT2]
Habe den Source Aktualisiert, waren fast alles nur leere Funktionen - habe jetzt wenigstens den IE Teil komplettiert.

Techmix

Das Problem ist folgendes gewesen:
Ich hatte den Editor bereits fertiggestellt, und weitere Änderungen vorgenommen. Dieses habe ich mit einem Schlag verloren! Ich schätze auf etwa gesammt > 1500 geänderte Zeilen Code... Diese wieder herzustellen ist fast nicht möglich, oder nur mit immensen Aufwand wieder zu erreichen. Zudem habe ich auch noch fast alle meiner älteren Projekte verloren - und auch meine Gewerblichen Programme...
...daher mußte ich meine Projekt-Aktivität leider einstellen und meinen Fokus auf andere wichtigere Projekte lenken.

Dewegen gibt es nur noch diese Version.
Grüsse!

Techmix

OK, dann ist ja alles Klar!

Also dieser Link soll denen Dienen die sich gerne inspiration holen wollen; es ist NICHT zum Klauen freigegeben! Die Geistigen Rechte liegen bei mir (ich hab´s Gecodet) und die allgemeinen Bedingungen stellt Schnacko als Team-Leader.
Soweit scheint alles klar zu sein, hier der Link. Zu beachten ist das diese Datei nichtmals den Beta-Staus erreicht hat...

Viel Spaß dabei!

Techmix

Nabend,
manche kennen bestimmt den K-Meleon Browser - da es ihn inzwischen in einer neueren Version gibt habe ich ihn mir wieder angeignet Er war früher schon Gut, hatte aber einige Probleme bei manchen Seiten (Ebay & Co)...
Gibt es bereits eine Möglichkeit diesen zu Automatisieren wie bei FF oder IE???
Ich habe schon GeGoogelt, bin aber nicht fündig geworden... Auch habe ich mich selber an eine Automatisierung versucht, Stolpere aber ständig über iwelche Dinge.
Die FireFox UDF läuft ja mit dem MozRepl AddOn - auch dieses kriege ich nicht in der aktuellen K-Meleon Version installiert. Ich Dachte das ich vielleicht einfach dieses & die FF-UDF nutzen kann...
Aber auch mit ControlClick & Co läuft es nicht richtig. Ausserdem wollte ich den Browser auch Embbeded laufen lassen was das ganze Erschwert.
Ich hatte auch schon an ein K-Meleon Macro gedacht, weiß aber nicht wie ich dieses mit AU3 anspechen könnte...

Hat vielleicht jemand hier bereits eine K-Meleon Automatisierung???

Grüsse!

Techmix

Ich finde die neuen Farben gräßlich!
Habe teilweise Schwierigkeiten meine eigenen Scripte zu lesen ...ich finde die Farben wirklich unproduktiv!
Deswegen habe wieder auf die alte SciTE Version umgerüstet!

Grüsse!

Techmix

Moin!
Ich habe ein IdeosX3 Android Phone - Mit dem Standart-Browser hatte ich auch einige Schwierigkeiten mit dem Scrollen. Jetzt benutze ich den DolphinHD Browser, und alles läuft wirklich gut!
Kannste nicht bei IOS einen anderen Browser laden und diesen dann einfach nutzten??

Grüsse!

Techmix

Moin!
Wenn Schnacko nichts dagegen hat - kann ich ja den letzten Mediafire Link (vom 2.1.12) hier Posten.
Da gibt es schon etwas mehr Technik zu sehen

Grüsse!

Techmix

Ja, du brauchst das FontTool! Damit dann die gewünschte Schriftart in Style und Größe als .bmp exportieren. In Irrlicht dann die erstellte .xml Datei als Font laden - und Fertig!

Grüsse!

Techmix

Ahhh
Super, werds versuchen!

Grüsse!

Techmix

Hi!
Mach mal aus:

[autoit]

_IrrStart( $IRR_EDT_OPENGL, 400, 200, $IRR_BITS_PER_PIXEL_32, _
$IRR_WINDOWED, $IRR_NO_SHADOWS, $IRR_IGNORE_EVENTS, _
$IRR_VERTICAL_SYNC_ON )

[/autoit]

dieses:

[autoit]

_IrrStart( $IRR_EDT_DIRECT3D9, 400, 200, $IRR_BITS_PER_PIXEL_32, _
$IRR_WINDOWED, $IRR_NO_SHADOWS, $IRR_IGNORE_EVENTS, _
$IRR_VERTICAL_SYNC_ON )

[/autoit]

Techmix

Versuche mal den Renderer von OpenGL auf DirectX umzustellen - ich habe auch auf meinem Win7x64 probleme unter OpenGL mit meiner ollen Geforce 5700...

Grüsse!

Techmix

Nabend!
Ich habe ein problemchen mit dem Updatebefehl in SQLight...
Und zwar habe ich mir eine Hilfedatei von der SQLight Seite geladen, komme aber damit iwie nicht ganz zurrecht weil da keine Anwendungsbeispiele bei sind

Nunja, ich habe eine SQLight DB worin Stündlich etwa 1500 Einträge zu machen sind. Bis jetzt lese ich die DB als 2D-Array aus, und suche ob von den Daten bereits was vorhanden ist (diese Änderungen führe ich direkt im Array durch) und füge die neuen Daten zusammen. Anschkliessend lasse ich die die DB löschen und Inserte das gesammte Array...

Spoiler anzeigen

[autoit]

dim $_SQLite_Exec="BEGIN TRANSACTION;"&@CRLF

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

for $j = 0 to UBound($aSTORE,1)-1
dim $Data=""
for $k = 0 to UBound($aSTORE,2)-1
$Data &= "'"&$aSTORE[$j][$k] & "',"
Next
$Data = StringTrimRight($Data,1)
$_SQLite_Exec &= "Insert into '"&$aStorage[$i]&"' values ("&$Data&");"&@CRLF
;$_SQLite_Exec &= "Update '"&$aStorage[$i]&"' values ("&$Data&");"&@CRLF
Next
$_SQLite_Exec &= @CRLF&"COMMIT;"
$sql_loschen = "DELETE FROM '" & $aStorage[$i] & "'; "
_SQLite_Exec($h_SQL_Storage, $sql_loschen)
_SQLite_Exec($h_SQL_Storage, $_SQLite_Exec)

[/autoit]

So mache ich das momentan, ist aber voll Zeitintensiv! Anfangs wo die DB noch klein ist (bis 1MB) gehts noch, aber wenn die DB erstmal 3MB hat - dann denkste das das Programm abgestürzt ist, weil sich ziemlich lange nichts mehr tut...

Also wie muß ich den _SQLite_Exec Befehl füttern das er im Prinzip das so macht:
If not Exist (...) then
Insert into '"&$aStorage[$i]&"' values ("&$Data&");
else
Update '"&$aStorage[$i]&"' values ("&$Data&");
endif

wobei ich sagen muß das ich Denke das ich den Update nicht richtig 'Formuliert' habe

Grüsse!

Techmix

Also bei mir ging es immer mit PushTheButton...
Ich Denke du hast die 'Buttons' entweder nicht im 32bit BMP Format gespeichert, oder diese nicht richtig ausgeschnitten!?!

Poste mal dein Script, am besten mit den 'Button' Pics.

Grüsse!

Techmix

Morgen!
Also, du kannst nicht so einfach mehrere GUI´s durch eine Menüleiste steuern... Es ist zwar möglich, aber eher über Umwege. Was du aber machen kannst, ist eine GUI erstellen und darin mit einem Tab arbeiten - das hat den Vorteil das du nicht selber iwelche Buttons verstecken mußt, sondern bei einem Tab-Klick wird eben die Seite umgeschaltet.

Grüsse!

[EDIT]
Eine neue Form.... Du kannst jede Form einfach in dein Script einbinden! Das ist überhaupt kein Problem. Und abfragen kannst du die Form 'Elemente' durch eine einfache Case/Switch Schleife oder durch die Option 'Opt("GUIOnEventMode", 1)'.

Techmix

Klar!
Wenn ich eine Java Seite Automatisieren muß - dann nehme ich immer 'Push The Button' hier aus dem Forum. Dann mußt du mit Paint einfach die Buttons vorbereiten und diese dann im Script übergeben; und schon Klickt AU3 auch bei Java-Seite auf den richtigen Button

Grüsse!

Techmix

Ich finde auch das sieht total Genial aus!
Deine GDI Scripte sind immer Sehenswert!

Grüsse!

Techmix

Moin!
Also das sieht schonmal sehr gut aus! Wenn ich mich recht erinnere hat Eukalyptus mal einen 3D-Text in GDI+ realisiert - dieser war auf einer 3D-Kugel drauf oder so; vielleicht hilft dir ja dieses Script dabei die 'perspektivischen' Probleme lösen zu können...

Grüsse!

Beiträge von Techmix

Welche Rechte habe ich an meinem Programm?

Welche Rechte habe ich an meinem Programm?

Flutch - Erobert die Welt

K-Meleon

Flutch - Erobert die Welt

Flutch - Erobert die Welt

K-Meleon

SciTE - alte Farben oder neue Farben - Abstimmung

[Mobile] Keine Scrollbar in der SB

Flutch - Erobert die Welt

Schrifft au3irrlicht

_SQLite_Exec Update / Insert

Irrlicht sehr langsam bei mir ?

Irrlicht sehr langsam bei mir ?

_SQLite_Exec Update / Insert

Auerswald TK-Anlage fernsteuern (IE.au3)

GUI - Mehrere Forms

Auerswald TK-Anlage fernsteuern (IE.au3)

GDI+ Spielerei 3D-Linien

Partikelexplosion in 3D ?