Generell hilft dir jeder gerne mit problemen. Im Hilfe und Unterstützung forum kriegt man meistens ziemlich schnell ne antwort
wenn du eher nen direkten ansprechparter suchst dann lies die pm
ich bin halt nicht immer online
Generell hilft dir jeder gerne mit problemen. Im Hilfe und Unterstützung forum kriegt man meistens ziemlich schnell ne antwort
wenn du eher nen direkten ansprechparter suchst dann lies die pm
ich bin halt nicht immer online
jup so würds gehn wenn nich alle seiten gesperrt wären wo mans downloaden kann...
die 500 kb datei kann ich zwar schon auf paar seiten runterladen. aber die verlinkt ja dann wieder auf andere seiten die gesperrt sin. naja um 3 bin ich daheim dann kann ich ja evtl noch probiern wenns bis dahin nicht gelöst ist
kann dir leider nicht helfen...
switchboard.real.com ist bei uns in der arbeit gesperrt. kanns nich downloaden
gib doch bitte mal nen link zur installer.exe.
dann schau ichs mir auch mal an
hier wurde mal pong in GDI+ umgesetzt
da ist ne kollisionsabfrage mit drin:
Pong in GDI+
vllt hilfts dir ja weiter
Ein programm nur zu verändern is noch kein virus. Sonst wären ja sämtliche Plugin's viren.
ich hab mir schon oft buttons in andere programme gemacht, weil halt einfach oft was bestimmtes fehlt
aber im prinzip hast du recht. man kann damit seehr viel scheiße baun.
grundsätzlich isses aber als sehr nützlich gedacht
*g* und ich glaube schon das das geht, zumindest fenster verändern. ob man fremden controls ne andre farbe geben kann weiß ich aber nicht sicher.
aber du kannst fremde controls auf @SW_Hide setzten und deine eigenen reinmachen
Das stichwort is AnyGui.au3
http://www.autoitscript.com/forum/index.php?showtopic=9517
eine meiner lieblings udf's
stimmt das is nur n denkfehler
du musst den index angeben den du gerne haben würdest. (wie er auch im arraydisplay angezeigt wird)
#include <String.au3>
#include <Array.au3>
Global $aArray1
[/autoit] [autoit][/autoit] [autoit]_Stick()
[/autoit] [autoit][/autoit] [autoit]Func _Stick()
$aArray1 = _StringBetween(RegRead("HKLM\SYSTEM\ControlSet002\Services\Disk\Enum","1") , "USBSTOR\Disk&Ven_USB&Prod_Flash_Disk&Rev_3000\","&0")
_ArrayDisplay($aArray1, 'Standardsuche')
IniWrite("Stick.ini","ID","Stick_Id",$aArray1[1] , "USBSTOR\Disk&Ven_USB&Prod_Flash_Disk&Rev_3000\","&0","")); wahrscheinlich isses $aArray1[1] aber das siehst du ja in _arraydisplay
EndFunc
ps: poste doch bitte direkt den code, dann muss man keine dateien runterladen
Ja daran habe ich auch schon gedacht, finde aber nicht, dass das die beste Lösung ist (flls es überhaupt eine andere gibt).
hm es gibt noch 100te andere lösungen. man könnte auch ein 2tes script erstellen welches die resourcen des ersten hackt und ändert, die frage ist ob sowas sinn macht (also zumindest das mit sicherheit nich :D)
selbst wenn es ne funktion geben würde die ControlsChangeTextColor heißen würde. die würde höchstwahrscheinlich genauso alle controls der reihe nach durchgehen und ändern.
öhm ja die frage is wie willst dus sonst machen.
so wie ichs gepostet habändert er genau alle controls und keines zuviel. leichter, schneller oder effektiver denke ich gehts nich...
jawoll nach 3 wochen gelöst
ups sry da hatte ich die includes vergessen:
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
Global $section, $combodata
$section = IniReadSection(@ScriptDir & "\Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
_ArraySort($section, 0, 0, 0, 0)
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+280)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
Next
$label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 40 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 75 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 205 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input2 = GUICtrlCreateInput("", 5, 220 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
$Button2 = GUICtrlCreateButton("Email senden", 135, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 130, 25)
$Button3 = GUICtrlCreateButton("ini öffnen", 270, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF)
WinWaitActive("[CLASS:rctrl_renwnd32]")
Send("^{End}")
Send("!eso")
WinWait("Wählen Sie eine Signatur", "")
ControlClick("Wählen Sie eine Signatur", "", "[CLASS:Button; INSTANCE:4]")
Case $Button3
Shellexecute(@ScriptDir & "\Email.ini")
EndSwitch
WEnd
poste doch mal das script dann sieht man vllt mehr wo das problem liegt
Wenn es sich um ein spiel handelt is die wahrscheinlichkeit groß das es ein bot ist oder?
wenn ja: das wird hier nicht supportet: https://autoit.de/index.php?page=Forumrules
Edit:
Bevor ichs vergess: Herzlich willkommen im Forum
ɹǝlɥǝɟddıʇ uǝu ʇsɐɥ np
jup in etwa so
#include <GUIConstantsEx.au3>
#include <Misc.au3>
Dim $label[40]
$Form1 = GUICreate("Form1", 150, 825)
for $i = 0 to 39
$Label[$i] = GUICtrlCreateLabel("Label " & $i, 20, 18 + $i * 20)
Next
$button = guictrlcreatebutton("Farbe", 100, 18)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $button
$color = _ChooseColor()
$dummy = GUICtrlCreateDummy()
msgbox(0,"",$Label[0] & " " & $dummy)
For $i = $Label[0] To $dummy
$rueck = GUICtrlSetColor($i, $color)
Next
GUICtrlDelete($dummy)
EndSwitch
WEnd
die lösung aller fragen
Global $section, $combodata
$section = IniReadSection(@ScriptDir & "\Email.ini", "Emails")
Dim $Checkbox[$Section[0][0]+1]
_ArraySort($section, 0, 0, 0, 0)
$Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+280)
For $i = 1 To $Section[0][0]
$Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
Next
$label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 40 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
$label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 75 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
$label3 = GUICtrlCreateLabel("Empfänger:", 5, 205 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
GUICtrlSetColor(-1, 0x1B79D9)
$Input2 = GUICtrlCreateInput("", 5, 220 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
$Button1 = GUICtrlCreateButton("Standards speichern", 5, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
$Button2 = GUICtrlCreateButton("Email senden", 135, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 130, 25)
$Button3 = GUICtrlCreateButton("ini öffnen", 270, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox[1] To $Checkbox[$Section[0][0]]
$emails = ""
For $i = 1 To $Section[0][0]
If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
$emails &= $Section[$i][1] & "; "
EndIf
Next
Guictrlsetdata($Input2, $emails)
Case $Button1
IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
Case $Button2
_INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF)
WinWaitActive("[CLASS:rctrl_renwnd32]")
Send("^{End}")
Send("!eso")
WinWait("Wählen Sie eine Signatur", "")
ControlClick("Wählen Sie eine Signatur", "", "[CLASS:Button; INSTANCE:4]")
Case $Button3
Shellexecute(@ScriptDir & "\Email.ini")
EndSwitch
WEnd
1. is bissl komplizierter,
muss man viel anpassen...
2. siehe script^^
3. shellexecute, wieder siehe script
PS: was du geändert hattest musst du wieer ändern, also das mit ALT+H+S+Enter und so, hatte ja leider nur mein script
die controls können ja nicht wissen das die standard farbe eine andere ist wenn diese erst nach ihnen festgelegt wird
bzw davor is die standard-farbe ja noch schwarz
*g* bald haben wir echt nen email client zusammen
1. die x position der checkboxen is das hier: 5 + (Round($i/2) - 1)*30
wenn du *30 änderst in *29 is das ganze enger zusammmen
das musst du dann aber auch bei allen controls darunter ändern
2. das geht natürlich auch. _ArraySort sollte da die passende lösung sein