1) Downloade dir ResHacker
2) Öffne die EXE damit (draufziehen)
3) Version Info -> 1 -> Alles Löschen
4) Vom Notepad, Paint, ... die Version Info holen, reinkopieren und ändern
5) Ergebnis anschauen 
MfG. tobi_girst
Beiträge von tobi_girst
-
-
Das Prob mit den Scroolbalken hab ich nicht - Dagür ein anderes: Das Object ist nicht ganz in der Mitte der GUI und auserdem ist der Fentertitel etwas komisch: "lod3n launcher"
Sonst toll! -
[autoit]
while 1
[/autoit]
if $id_button_abbrechen = $msg then exitloop
wend
MfG. tobi_girstP.S.: Benutze für Autoit-Code [ autoit] am Anfang und [/ autoit] am Ende (Ohne Leerzeichen!)!
-
@Commander21: LoL!
-
Auch nett! Aber die Kreise fund ich besser!
-
Das war eigentlich extra so, damit es nicht zu sehr stört
Glaub ich dir! (siehe Pic, wo ich probiert ha, autoit.de zu lesen!) -
Ha ich beides schon längst getan...
-
Thx, bei Vista isses nämlich nicht dabei
-
-
Wo ist die dsquery.exe zu finden??
-
Maxch den Screenshot noch mal neu, da kann man nichts erkennen!
MfG. tobi_girst -
[autoit]
;1x ausführen
[/autoit][autoit][/autoit][autoit]
Run ('notepad.exe');Unendlich mal ausführen
[/autoit]
While 1
Run ('notepad.exe')
WendMfG. tobi_girst
-
Toll, gefällt mir!
[autoit]
Edit:/ so wirds noch besser:Global $hGui = GUICreate("Rahmen", @DesktopWidth, @DesktopHeight, -1, -1, $WS_POPUP + $WS_EX_TOPMOST , $WS_EX_LAYERED + $WS_EX_TRANSPARENT)
[/autoit]
WinSetOnTop ("Rahmen", "", 1)
So kann man derweil weiterarbeiten (wenn mans schafft )und es bleibt on Top!
Edit2:/ Auserdem ham ich Zeile 58-61 auskommentiert - Jetzt verschwindet es nicht mehr ständig!
Edit3:/ Hab die Lösch-Func jetzt mit Hotkey versehen - Jetzt passt es mir! -
-
@senden9: Es heißt Fernbedienung!
Sry, aber ich kann dir net helfen. -
Sry, klar!
Spoiler anzeigen
[autoit]#include<guiconstantsex.au3>
[/autoit] [autoit][/autoit] [autoit]
#include<windowsconstants.au3>
#include<ie.au3>_ieerrorhandlerregister ()
[/autoit] [autoit][/autoit] [autoit]if not dirgetsize('data\settings') then dircreate('data\settings')
[/autoit] [autoit][/autoit] [autoit]
if not fileexists('data\settings\home.dat') then config()
;~ config()hotkeyset('^u','_qcode')
[/autoit] [autoit][/autoit] [autoit]
$ie=_ieCreateembedded()
guicreate("MyBrowser 0.1.0",640,580, _
(@desktopwidth-640)/2,(@desktopheight-580)/2, _
$ws_overlappedwindow+$ws_visible+$ws_clipsiblings+$ws_clipchildren)
$ieobj=guictrlcreateobj($ie, 0, 025, 640, 580-5-20)
guictrlsetresizing($ieobj,102);guictrlsetresizing($ieobj,$GUI_DOCKAUTO+128+32);guictrlsetresizing($ieobj,2+4+64)
$ieback=guictrlcreatebutton("Back", 0, 0, 100, 25)
$ieforward=guictrlcreatebutton("Forward", 100, 0, 100, 25)
$iehome=guictrlcreatebutton("Home", 200, 0, 100, 25)
$iestop=guictrlcreatebutton("Stop", 300, 0, 100, 25)
$url=guictrlcreateinput('http://www.google.at',400,0,580-400)
$urlgo=guictrlcreatebutton('|>',580,0,20)
guictrlsetresizing($ieback,2+8+256+512)
guictrlsetresizing($ieforward,2+8+256+512)
guictrlsetresizing($iehome,2+8+256+512)
guictrlsetresizing($iestop,2+8+256+512)
guictrlsetresizing($url,2+8+256+512)
guictrlsetresizing($urlgo,2+8+256+512)guisetstate() ;Show GUI
[/autoit] [autoit][/autoit] [autoit]$home2=fileread('data\settings\home.dat');Standard: 'www.google.at'
[/autoit] [autoit][/autoit] [autoit]
_ienavigate ($ie,$home2);#cs ~~~~~ SETTINGS START ~~~~~
[/autoit] [autoit][/autoit] [autoit]
func config()
guicreate('Settings',250,95)
guictrlcreategroup('Main',5,-1,240,55)
guictrlcreatelabel('Bitte geben Sie die gewünschte Startseite ein: ',10,10)
$home=guictrlcreateinput(fileread('data\settings\home.dat'),10,25)
$save=guictrlcreatebutton('OK',10,60,50)
$cancel=guictrlcreatebutton('Cancel',65,60,50)
guisetstate()
while 1
if guigetmsg()=$gui_event_close then
guidelete()
exitloop
endif
if guigetmsg()=$save then
fileopen('data\settings\home.dat',2)
filewrite('data\settings\home.dat',guictrlread($home))
guidelete()
exitloop
endif
if guigetmsg()=$cancel then
guidelete()
exitloop
endif
wend
endfunc
;#ce ~~~~~ SETTINGS END ~~~~~func _qcode()
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <ScrollBarConstants.au3>
#include <GuiEdit.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>Global $iHit = 0
[/autoit] [autoit][/autoit] [autoit]
Global $sFile = _iebodyreadhtml($ie)$hGui = GUICreate('Text suchen', 720, 480)
[/autoit] [autoit][/autoit] [autoit]$hEdit = GUICtrlCreateEdit(FileRead($sFile), 10, 10, 700, 440, BitOR($GUI_SS_DEFAULT_EDIT, $ES_READONLY))
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor(-1, 0xFFFFFF)
ControlFocus($hGui, '', $hEdit)
$hInput = GUICtrlCreateInput('Bitte Suchbegriff eingeben!', 10, 455, 638, 20)
$hSearch = GUICtrlCreateButton('Suchen', 650, 454, 60, 22)
GUISetState()
GUIRegisterMsg($WM_COMMAND, 'MY_WM_COMMAND')While True
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
guidelete()
Exitloop
Case $hSearch
$sText = GUICtrlRead($hEdit)
$sSearch = GUICtrlRead($hInput)
$iHit = StringInStr($sText, $sSearch, 0, 1, $iHit + 1)
If $iHit > 0 Then
ControlFocus($hGui, '', $hEdit)
_GUICtrlEdit_SetSel($hEdit, $iHit - 1, $iHit - 1 + StringLen($sSearch))
_GUICtrlEdit_Scroll($hEdit, $SB_SCROLLCARET)
GUICtrlSetData($hSearch, 'Weiter...')
Else
Beep(400, 100)
GUICtrlSetData($hSearch, 'Suchen')
EndIf
EndSwitch
WEnd
endfunc
Func MY_WM_COMMAND($hWnd, $msg, $wParam, $lParam)
Local $nNotifyCode = BitShift($wParam, 16)
Local $nID = BitAND($wParam, 0xFFFF)
If $nID = $hInput And $nNotifyCode = 256 Then
GUICtrlSetData($hSearch, 'Suchen')
GUICtrlSetData($hInput, '')
$iHit = 0
EndIf
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_COMMAND;#cs ~~~~~ MAIN LOOP START ~~~~~
[/autoit] [autoit][/autoit] [autoit]
; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $iehome
_IENavigate ($ie,$home2)
Case $msg = $ieback
_IEAction ($ie, "back")
Case $msg = $ieforward
_IEAction ($ie, "forward")
Case $msg = $iestop
_IEAction ($ie, "stop")
case $msg=$urlgo
_ienavigate($ie, guictrlread($url))
EndSelect
WEnd
;#ce ~~~~~MAIN LOOP END ~~~~~GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]Edit:/ die Datei \data\settings\home.dat
Codehttp://www.google.at -
Ja, klar, sry
[autoit]
Also, ich hab das Script einfach in eine Func mit HotKey gepackt und Zeile 8 inGlobal $sFile = _iebodyreadhtml($ie)
[/autoit]umgeändert.
Error:Code>"***.au3" C:\Program Files\AutoIt3\Include\Security.au3 (59) : ==> "Func" statement has no matching "EndFunc".: Func _Security__AdjustTokenPrivileges($hToken, $fDisableAll, $pNewState, $iBufferLen, $pPrevState = 0, $pRequired = 0) >Exit code: 1 Time: 0.435
Kommt beim starten vom Programm -
Nur Text:
[autoit]Dim $as_Body = "Zeile 1"&@CRLF&"Zeile 2"
[/autoit]usw..
-
So sollte die IF funktionieren:
[autoit]if DirGetSize($InstallDirTriCAD) then
[/autoit]
FileCopy($TriCADPatchDir "\*.ma", $InstallDirTriCAD & "\bin", 9)
FileCopy($TriCADPatchDir "\*.ini", $InstallDirTriCAD & "\env", 9)
EndIf -
Habs jetzt mal zum Laufen gebracht und @profis ich weis, dass es besser auch geht...
[autoit]#include <Misc.au3>
[/autoit][autoit][/autoit][autoit]HotkeySet("{Tab}","_blabla")
[/autoit][autoit][/autoit][autoit]While 1
[/autoit][autoit][/autoit][autoit]
Sleep(1000)
WEndFunc _blabla()
[/autoit][autoit][/autoit][autoit]
hotkeyset('{tab}','_exitfunc') ;<-- Ändert den HotkeyWhile 1
[/autoit][autoit][/autoit][autoit]
If _IsPressed("1") then
MouseClick("left")
Sleep(2)
MouseClick("left")
Sleep(2)
MouseClick("left")
Sleep(2)
MouseClick("left")
EndIf
WEndEndFunc
[/autoit]
func _exitfunc() ;<-- Ladet das Script neu (ich weis, ist nicht die beste Möglichkeit...)
run (regread('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\autoit3.exe '&@ScriptFullPath)
exit
endfunc
