Mal so am Rande,
gibt es ein wirklich simples Script für einen Taschenrechner?
ich würde ganz gern einen kleinen in HastyNotes einfügen 
Beiträge von Sen
-
-
Schon getestet.
Problem:
1. Arbeite ich mit Google Chorme und die Auto Scroll Funktion ist dort
wirklich extrem lahm.
2. Muss ich teilweise auch in Pdf's scrollen.Gibt es keine Funktion wie "Send" die das Mausrad benutzt?
-
Und zwar helfe ich einem Kumpel gerade bei einer Website,
diese hat aber EXTREM lange seiten teilweise.Gibt es eine Möglichkeit z.b. per F8 mit der Maus automatisch nach unten zu scrollen
und dieses mit F9 oder so wieder zu stoppen?Mein Mausrad wäre euch dankbar
-
Nope, da haste das Script~
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: Burak Keskin
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include-once
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GuiConstants.au3>
#Include <WinAPI.au3>$hWndMain = GUICreate("My Own Created Button", 300, 200)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor(0x000000); this here doesn't work, why ?
[/autoit] [autoit][/autoit] [autoit]
$hWndButton = CreateWindow('BUTTON', 'CheckBox', _
BitOr($WS_CHILD, $WS_VISIBLE, $BS_AUTOCHECKBOX), _
90, 50, 120, 30, _
$hWndMain, 6, _
GetWindowLong($hWndMain, $GWL_HINSTANCE))#cs
[/autoit] [autoit][/autoit] [autoit]
; this works, so why doesn't CreateWindow work ?
$hWndButton = _WinAPI_CreateWindowEx($WS_EX_DLGMODALFRAME , 'BUTTON', 'CheckBox', _
BitOr($WS_CHILD, $WS_VISIBLE, $BS_AUTOCHECKBOX), _
90, 50, 120, 30, _
$hWndMain, 5, _
GetWindowLong($hWndMain, $GWL_HINSTANCE))
#ceGUISetState()
[/autoit] [autoit][/autoit] [autoit]While True
[/autoit] [autoit][/autoit] [autoit]Switch GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]
Case -3
Exit
Case 5
MsgBox(4096, '', 'This function works fine ...')
Case 6
MsgBox(4096, '', "Why can't I be visible ...")
EndSwitchWEnd
[/autoit] [autoit][/autoit] [autoit];========================================================================================
[/autoit] [autoit][/autoit] [autoit]
;========================================================================================
Func CreateWindow($sClassName, $sWindowName, $iStyle, $iX, $iY, $iWidth, $iHeight, $hWndParent = 0, $hMenu = 0, $hInstance = 0, $pParam = 0)
Local $aResult
If $hInstance = 0 Then $hInstance = _WinAPI_GetModuleHandle("")
$aResult = DllCall("User32.dll", "hwnd", "CreateWindow", "str", $sClassName, _
"str", $sWindowName, _
"int", $iStyle, _
"int", $iX, _
"int", $iY, _
"int", $iWidth, _
"int", $iHeight, _
"hwnd", $hWndParent, _
"hwnd", $hMenu, _
"hwnd", $hInstance, _
"ptr", $pParam)
_WinAPI_Check("CreateWindow", ($aResult[0] = 0), 0, True)
Return $aResult[0]
EndFunc
;========================================================================================
;========================================================================================
Func GetWindowLong($hWnd, $iIndex)Local $aResult
[/autoit] [autoit][/autoit] [autoit]
$aResult = DllCall('user32.dll', 'int', 'GetWindowLong', 'hwnd', $hWnd, 'int', $iIndex)
; _ArrayDisplay($aResult)
GetLastError()Return $aResult[0]
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]
Func GetLastError()Local $aResult
[/autoit] [autoit][/autoit] [autoit]
$aResult = DllCall('Kernel32.dll', 'int', 'GetLastError')
; _ArrayDisplay($aResult)
Return $aResult[0]EndFunc
[/autoit] -
HastyNotes 2.4 zum Download bereit.
Kommentare und Ideen für neue Funktionen sind gern gesehen.
-
So habs..
es war ein extrem dämlicher fehler.ExitLoop hat alles gelöst
-
Hm.. ist das mit der Gui unter der Gui nicht ziemlich umständlich?
Sollte doch auch leichter gehen.
Die zweite Gui geht ja, das Problem ist nur das
ich danach die HauptGUI nichtmehr schließen kann. -
Der komplette Code von HastyNotes wäre etwas zu lang,
da es mittlerweile über 500 Zeilen und 20.000 Zeichen sindHier mal der wichtige Abschnitt,
bevor dieser gestartet wird lässt sich die HauptGUI ganz normal beenden.Spoiler anzeigen
[autoit]
[/autoit]
Case $Ersetzen
$ErsetzenWindow = GUICreate("", 243, 154, -1, -1)
GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
$ErsetzenInput = GUICtrlCreateInput("", 8, 32, 225, 24)
GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
$Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)
GuiSetState()
While 1
Switch GuiGetMsg()
Case -3
GuiSetState(@SW_HIDE,$ErsetzenWindow)
Case $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$ErsetzenWindow)
Case $ErsetzenButton
Switch GUICtrlRead($UberTab,1)
Case $Tab1
$log1 = GUICtrlRead($Edit1)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log1, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit1, $ErrechneText)
Case $Tab2
$log2 = GUICtrlRead($Edit2)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log2, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit2, $ErrechneText)
Case $Tab3
$log3 = GUICtrlRead($Edit3)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log3, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit3, $ErrechneText)
Case $Tab4
$log4 = GUICtrlRead($Edit4)
$SuchenInhalt = GUICtrlRead($ErsetzenInput)
$ErsetzenInhalt = GUICtrlRead($Ersetzenmit)
$ErrechneText = StringReplace($log4, $SuchenInhalt, $ErsetzenInhalt)
GUICtrlSetData($Edit4, $ErrechneText)
GuiSetState(@SW_HIDE,$ErsetzenWindow)
EndSwitch
Case $ErsetzenAbbrechen
GuiSetState(@SW_HIDE,$ErsetzenWindow)
EndSwitch
WEnd -
Geht auch nicht,
ich verzweifle gerade.Es lässt sich weiterhin das Hauptfenster nicht mehr schließen.
-
K habs jetzt Fenster wird angezeigt etc
[autoit]
Code:
[/autoit]
Case $Ersetzen
$ErsetzenWindow = GUICreate("", 243, 154, -1, -1)
GUICtrlCreateLabel("Suchen nach:", 8, 8, 96, 20)
$Ersetzen = GUICtrlCreateInput("", 8, 32, 225, 24)
GUICtrlCreateLabel("Ersetzen mit:", 8, 64, 92, 20)
$Ersetzenmit = GUICtrlCreateInput("", 8, 88, 225, 24)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 8, 120, 105, 25, $WS_GROUP)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 130, 120, 105, 25, $WS_GROUP)
GuiSetState()
While 1
Switch GuiGetMsg()
Case -3
GuiSetState(@SW_HIDE,$ErsetzenWindow)
Case $GUI_EVENT_CLOSE
GUIDelete($ErsetzenWindow)
Case $ErsetzenButton
GUIDelete($ErsetzenWindow)
Case $ErsetzenAbbrechen
GUIDelete($ErsetzenWindow)
EndSwitch
WEndWenn ich die GUI aber schließe kann ich die Haupt GUI nichtmehr schließen.
Warum? -
Hm.. jetzt kommt ein anderes Problem auf
[autoit]
[/autoit]
Case $Ersetzen
$ErsetzenWindow = GUICreate("Ersetzen mit:", 335, 78, -1, -1, $WS_CHILD)
GUICtrlCreateLabel("Suchen Nach:", 8, 8, 73, 17)
$Ersetzen = GUICtrlCreateInput("", 88, 8, 145, 21)
GUICtrlCreateLabel("Ersetzen mit:", 8, 40, 64, 17)
$Ersetzenmit = GUICtrlCreateInput("", 88, 40, 145, 21)
$ErsetzenButton = GUICtrlCreateButton("Ersetzen", 248, 8, 81, 25, 0)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$ErsetzenAbbrechen = GUICtrlCreateButton("Abbrechen", 248, 40, 83, 25, 0)
GUISetState(@SW_SHOW)
While 1
$ErsetzenMSG = GUIGetMsg()
Select
Case $ErsetzenMSG = $GUI_EVENT_CLOSE
GUIDelete($ErsetzenWindow)
Case $ErsetzenMSG = $ErsetzenButton
Case $ErsetzenMSG = $ErsetzenAbbrechen
EndSelect
WEndEdit:
Wird das Fenster garnicht erst angezeigt und ich kann die Main GUI nichtmehr schließen o.o -
Klar, kriegst nen Eintrag wenn ich was benutze
Danke nochmal.
-
Dürfte ich einige Code Teile bei Bedarf übernehmen?
-
Wie verhindere ich das schließen der Haupt GUI wenn ich z.b. eine
zweite GUI öffnen lasse und diese sich schließt? -
Danke, funktioniert.
-
Ändert sich nichts.
Ich muss praktisch
[autoit]
[/autoit]
$Tab1 = GUICtrlCreateTabItem($TabName1)Aktualisieren.
Da sich $TabName1 ändern kann. -
So.. da mir in der SB keiner geantwortet hat,
ich in der Hilfe nicht finde und die Funktion vergessen habe.
Es geht darum das ich bei HastyNotes jetzt die Funktion drin habe
Tab Namen zu ändern.Problem:
Der Tab Name ist immer in einer $, wird aber in der GUI erst nach dem
neustart aktualisiert.Gibt es keine Funktion um die Tab Namen in der GUI zu aktualisieren?
-
Mal ne ganz dumme Idee
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <Date.au3>$weekday = _DateToDayOfWeekISO(@YEAR, @MON, @MDAY)
[/autoit][autoit][/autoit][autoit]
If $weekday = "0" Then
$tagmitname = "Montag"
ElseIf $weekday = "1" Then
$tagmitname = "Dienstag"
ElseIf $weekday = "2" Then
$tagmitname = "Mittwoch"
ElseIf $weekday = "3" Then
$tagmitname = "Donnerstag"
ElseIf $weekday = "4" Then
$tagmitname = "Freitag"
ElseIf $weekday = "5" Then
$tagmitname = "Samstag"
ElseIf $weekday = "6" Then
$tagmitname = "Sonntag"
EndIfMsgBox(0, "Test", "Es ist " & $tagmitname & " der " & @MDAY & "." & @MON & "." & @YEAR)
[/autoit]Sollte gehen oder?
Edit:
Geht. -
Was zum Teufel sucht der Link
"Click Ctrl-C to copy. (hides when lost focus)"Da dauernd?
-
Ah danke, hat funktioniert
