Beiträge von Alina

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Bookmanagment", 743, 588, 192, 124)
$Input1 = GUICtrlCreateInput("Das Wesen", 136, 145, 601, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label1 = GUICtrlCreateLabel("Buchtitel :", 5, 147, 62, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label2 = GUICtrlCreateLabel("Buchautor :", 5, 178, 71, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Buchautor = GUICtrlCreateInput("Strobel, Arno", 136, 176, 601, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label3 = GUICtrlCreateLabel("Verlag :", 5, 210, 51, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Verlag = GUICtrlCreateInput("Fischer Verlag", 136, 208, 601, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label4 = GUICtrlCreateLabel("Erscheinungsdatum :", 5, 242, 129, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input2 = GUICtrlCreateInput("05.11.2010", 136, 240, 73, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label5 = GUICtrlCreateLabel("Preis in € :", 399, 242, 68, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input3 = GUICtrlCreateInput("8,95", 466, 239, 57, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label6 = GUICtrlCreateLabel("ISBN-10 :", 5, 277, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input4 = GUICtrlCreateInput("3596186323", 136, 272, 113, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label8 = GUICtrlCreateLabel("ISBN-13 :", 258, 274, 60, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input5 = GUICtrlCreateInput("978-3596186327", 320, 272, 113, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label7 = GUICtrlCreateLabel("Einband :", 569, 242, 61, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input6 = GUICtrlCreateInput("Taschenbuch", 629, 239, 108, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label9 = GUICtrlCreateLabel("Seiten :", 464, 272, 50, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input7 = GUICtrlCreateInput("368", 525, 272, 105, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label10 = GUICtrlCreateLabel("ausgeliehen an :", 5, 306, 103, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input8 = GUICtrlCreateInput("Maria Musterfrau", 136, 304, 297, 21)
$Label11 = GUICtrlCreateLabel("am :", 464, 304, 30, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input9 = GUICtrlCreateInput("31.02.2013", 522, 302, 78, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$bis = GUICtrlCreateLabel("bis :", 629, 305, 30, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input10 = GUICtrlCreateInput("31.03.2013", 661, 302, 75, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label12 = GUICtrlCreateLabel("Lagerplatz", 5, 329, 66, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input11 = GUICtrlCreateInput("Regal-B , Fach 3", 136, 328, 297, 21)
$Label13 = GUICtrlCreateLabel("Schlagwörter :", 5, 352, 89, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input12 = GUICtrlCreateInput("Strobel , Das Wesen , Thriller , ", 200, 352, 537, 21)
$Label14 = GUICtrlCreateLabel("Information - 1 :", 5, 380, 95, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$leer = GUICtrlCreateInput("gelesen von Mara Sörens, Ina Muster", 200, 376, 537, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label15 = GUICtrlCreateLabel("Information - 2 :", 5, 408, 95, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input13 = GUICtrlCreateInput("leer", 200, 408, 537, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label16 = GUICtrlCreateLabel("Kaufmöglichkeit :", 5, 440, 106, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input14 = GUICtrlCreateInput("http://www.buecher.de/shop/buecher/das-wesen/strobel-arno/products_products/detail/prod_id/29908840/", 200, 440, 537, 21)
$Label17 = GUICtrlCreateLabel("B U C H V E R W A L T U N G ", 264, 8, 267, 27)
GUICtrlSetFont(-1, 14, 800, 4, "Arial Narrow")
GUICtrlSetColor(-1, 0x000080)
$Button1 = GUICtrlCreateButton("Buch suchen", 8, 48, 123, 25)
$Button2 = GUICtrlCreateButton("Neues Buch erfassen", 440, 48, 115, 25)
$Checkbox1 = GUICtrlCreateCheckbox("", 220, 245, 17, 17)
$Button3 = GUICtrlCreateButton("Sortieren nach Autor", 8, 80, 123, 25)
$Button4 = GUICtrlCreateButton("aktuelles Buch bearbeiten", 256, 48, 179, 25)
$Button5 = GUICtrlCreateButton("Sortieren nach Titel", 136, 80, 115, 25)
$Button6 = GUICtrlCreateButton("sortieren nach Erscheinungsdatum", 256, 80, 179, 25)
$Button7 = GUICtrlCreateButton("Speichern", 608, 112, 107, 25)
GUICtrlSetFont(-1, 12, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFF0000)
$Label18 = GUICtrlCreateLabel("gelesen ?", 5, 464, 64, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input15 = GUICtrlCreateInput("Ja", 200, 464, 49, 21)
$Label19 = GUICtrlCreateLabel("von 5 Sternen", 322, 466, 87, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Input16 = GUICtrlCreateInput("5", 304, 464, 17, 28)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Label20 = GUICtrlCreateLabel("vormerken", 240, 242, 68, 24)
GUICtrlSetFont(-1, 12, 400, 0, "Arial Narrow")
$Button8 = GUICtrlCreateButton("vorgemerkte Bücher", 440, 80, 115, 25)
$Button9 = GUICtrlCreateButton("Schlagwortsuche", 136, 48, 115, 25)
$Button10 = GUICtrlCreateButton("aktuelle Buch drucken", 280, 496, 195, 25)
$Button11 = GUICtrlCreateButton("Erste Buch", 5, 496, 101, 25)
$Button12 = GUICtrlCreateButton("vorheriger Buch", 128, 496, 113, 25)
$Button13 = GUICtrlCreateButton("nächster Buch", 504, 496, 113, 25)
$Button14 = GUICtrlCreateButton("Letztes Buch", 640, 496, 99, 25)
$Button15 = GUICtrlCreateButton("Liste alle Bücher ausgeben", 560, 48, 179, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

[autoit]

; ======================================================================================================
; Script Name: Convert Dell Service Tag <=> Express Service Code
; Filename: dell_convert.au3
; Compiled as: dell_convert.exe
; Description:
; A basic utility that converts the Dell Service Tag to its corresponding
; Express Service Code and vice versa.
; Notes and Sources:
; Dell uses a single serial number to uniquely identify its products. That
; serial number is represented two different ways: as a base-36 number (the
; Service Tag) and as a base-10 number (the Express Service Code). Thus, the
; conversion between the two is simply a matter of converting between base-10
; and base-36.
; As an exercise in how to build a simple, but fully functional GUI using
; the AutoITv3 scripting language, as well as hoping to better understand the
; processes involved in making the conversion, I set out to write this script.
; There are four routines that will be employed: building the GUI, the
; input loop, the base conversion routine, and a Service Tag validation routine,
; Each of these routines are copiously annotated to ensure maximum
; readability and understandability.
; The pseudocode that follows was found as I was searching for an
; understanding of the processes involved in converting between bases. The
; author's full discussion can be found at <http://www.geocities.com/oosterwal/
; computer/numericbase.html>.
; Pseudocode for the base conversion:
; string function Base2Base(InputNumber as string, InputBase as integer, OutputBase as integer)
; Dim J, K, DecimalValue, X, MaxBase, InputNumberLength as integer
; Dim NumericBaseData, OutputValue as string
; NumericBaseData = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
; MaxBase = Length(NumericBaseData)
; if (InputBase > MaxBase) OR (OutputBase > MaxBase) then
; Base2Base = "N/A"
; return
; end if
; */ Convert InputNumber to Base 10 /*
; InputNumberLength = Length(InputNumber)
; DecimalValue = 0
; for J = 1 to InputNumberLength
; for K = 1 to InputBase
; if mid(InputNumber, J, 1) == mid(NumericBaseData, K, 1) then
; DecimalValue = DecimalValue+int((K-1)*(InputBase^(InputNumberLength-J))+.5)
; end if
; next K
; next J
; */ Convert the Base 10 value (DecimalValue) to the desired output base /*
; OutputValue = ""
; while DecimalValue > 0
; X = int(((DecimalValue/OutputBase)-int(DecimalValue/OutputBase))*OutputBase+1.5)
; OutputValue = mid(NumericBaseData, X, 1)+OutputValue
; DecimalValue = int(DecimalValue/OutputBase)
; loop
; Base2Base = OutputValue
; return
; end
; ======================================================================================================

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

; Building the GUI
; -------------------------------------
; In order to utilize the $GUI_EVENT_CLOSE constant, we must include the following library
#include <guiconstants.au3>

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

; Create the GUI
; Create a decent sized window, centered on the screen
guicreate("Service Tag <=> Express Service Code", 370, 160, -1, -1)
; Create the Instructions label on the GUI, so the User knows what's going on
$instructions_label = guictrlcreatelabel("Enter either the Service Tag or the Express Service Code and press {TAB}", 10, 10)
; Create the Service Tag and Express Service Code labels for the input boxes
$service_tag_label = guictrlcreatelabel("Service Tag:", 10, 40)
$express_service_code_label = guictrlcreatelabel("Express Service Code:", 10, 70)
; Create the Service Tag and Express Service Code input boxes
$service_tag_input = guictrlcreateinput("", 125, 35, 230)
$express_service_code_input = guictrlcreateinput("", 125, 65, 230)
; Create the Instructions label on the GUI, so the User knows what's going on
$drivers_label = guictrlcreatelabel("Please copy the Service Tag to your Clipboard", 10, 95)
$drivers2_label = guictrlcreatelabel("and then use Drivers and Warranty Button", 10, 110)
; Add an Drivers button, explaining this work and the license it is released under
$drivers_button = guictrlcreatebutton("Drivers...", 10, 130, 75)
; Add an Warranty button, explaining this work and the license it is released under
$warranty_button = guictrlcreatebutton("Warranty...", 90, 130, 75)
; Add a Reset Inputs button, that allows the two input boxes to be cleared
$reset_button = guictrlcreatebutton("Reset Inputs", 200, 130, 75)
; Add an Exit button
$exit_button = guictrlcreatebutton("Exit", 280, 130, 75)
; When the window is created, it is initially hidden, the following line makes it visible
guisetstate(@SW_SHOW)

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

; The Input Loop
; -------------------------------------
; This while-wend loop takes any inputs and, if they match what we're looking for, calls the appropriate function

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

while 1
$input = guigetmsg()
select
case $input = $gui_event_close
exitloop ; Leave the while-wend and continue executing the script
case $input = $exit_button
exitloop ; Same as above
case $input = $reset_button
guictrlsetdata($express_service_code_input, "") ; Clears the input box
guictrlsetdata($service_tag_input, "") ; Clears the input box
send("{TAB}")
send("{TAB}") ; These two tabs move focus back to the Service Tag input box
case $input = $service_tag_input
; Takes the data entered and passes it to the _baseconvert function for processing
guictrlsetdata($express_service_code_input, _baseconvert(guictrlread($service_tag_input), 36, 10))
guictrlsetdata($service_tag_input, stringupper(guictrlread($service_tag_input)))
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}")
send("{TAB}") ; These five tabs move focus to the Express Service Code input box
case $input = $express_service_code_input
; Takes the data entered and passes it to the _baseconvert function for processing
guictrlsetdata($service_tag_input, _baseconvert(guictrlread($express_service_code_input), 10, 36))
send("{TAB}")
send("{TAB}")
send("{TAB}") ; These three tabs move focus back to the Service Tag input box
case $input = $drivers_button
; The following line creates a dialog box that shows the information needed
Opt ("WinTitleMatchMode", 2)
WinActivate("Rank", "")
Sleep(10)
Send("^c")
$Keyword = ClipGet()
ShellExecute("http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&cs=19&l=en&s=bsd&~ck=anavml&~tab=1&servicetag=" & ($Keyword)) ;hier
send("{TAB}")
send("{TAB}")
send("{TAB}") ; These three tabs move focus back to the Service Tag input box
case $input = $warranty_button
; The following line creates a dialog box that shows the information needed
Opt ("WinTitleMatchMode", 2)
WinActivate("Rank", "")
Sleep(10)
Send("^c")
$Keyword = ClipGet()
ShellExecute ("http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&cs=19&l=en&s=bsd&~ck=anavml&~tab=1&servicetag=" & ($Keyword))
send("{TAB}")
send("{TAB}")
send("{TAB}") ; These three tabs move focus back to the Service Tag input box
endselect
wend

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

; End the program
exit

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

; The Base Conversion Routine
; -------------------------------------
; This routine calls the Service Tag Validation Routine. It could be very easily modified to handle a variety of situations.
func _baseconvert($input_number, $input_base, $output_base)
; Check to see if the Service Tag is valid
if number($input_base) = 36 then
if _validservicetag($input_number) = 0 then
return "ERROR"
endif
endif

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

; Define some important variables
$numericbasedata = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
$maxbase = stringlen($numericbasedata)

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

; Make sure the function call is within specified parameters
if $input_base > $maxbase or $output_base > $maxbase then
msgbox(0, "Error", "Input or Output Base exceeds Maximum Base in Function _baseconvert")
return 0
endif

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

$input_number = stringupper($input_number)

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

; Convert the input number to base 10
$input_number_length = stringlen($input_number)
$decimalvalue = 0
for $j = 1 to $input_number_length
for $k = 1 to $input_base
if stringmid($input_number, $j, 1) == stringmid($numericbasedata, $k, 1) then
$decimalvalue = $decimalvalue + int(($k - 1) * ($input_base ^ ($input_number_length - $j)) + .5)
endif
next
next

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

; Convert the base 10 value to the the output base
$outputvalue = ""
while $decimalvalue > 0
$x = int((($decimalvalue / $output_base) - int($decimalvalue / $output_base)) * $output_base + 1.5)
$outputvalue = stringmid($numericbasedata, $x, 1) & $outputvalue
$decimalvalue = int($decimalvalue / $output_base)
wend

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

; If we're outputting a Service Tag, check to see if it is valid
if number($input_base) = 10 then
if _validservicetag($outputvalue) = 0 then
return "ERROR"
endif
endif
return $outputvalue
endfunc

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

; Service Tag Validation Routine
; -------------------------------------
func _validservicetag($service_tag)
; In order for the Service Tag to be valid, it must be between 5 and 7 characters and it must consist of only letters and numbers
; First, we'll make sure that there are no less than five and no more than seven characters
if stringlen($service_tag) <= 7 and stringlen($service_tag) >= 5 then
; Finally, we'll make sure that only alphanumeric characters exist in the string
if stringisalnum($service_tag) then
return 1
endif
else
return 0 ; On failure, the function returns 0
endif
endfunc

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

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$MoSwi = GUICreate("Monitorsteuerung", 493, 41, 5, 5)
$Mo2plus = GUICtrlCreateButton("Monitor 2 zuschalten", 8, 8, 115, 25)
$Mo2minus = GUICtrlCreateButton("Monitor 2 abschalten", 127, 8, 115, 25)
$Mo1und2 = GUICtrlCreateButton("nur 2. Monitor", 248, 8, 115, 25)
$Mo2clonMo1 = GUICtrlCreateButton("Monitorcloning", 368, 8, 115, 25)
GUISetState(@SW_SHOW)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Mo2plus
run("C:\Windows\System32\DisplaySwitch.exe /extend")
Case $msg = $Mo2minus
run("C:\Windows\System32\DisplaySwitch.exe /internal")
Case $msg = $Mo1und2
run("C:\Windows\System32\DisplaySwitch.exe /external")
Case $msg = $Mo2clonMo1
run("C:\Windows\System32\DisplaySwitch.exe /clone")
EndSelect
WEnd

[/autoit]