Jump to content

Hiçbir Checkbox Seçilmemişse

bybordo

By bybordo,
in AutoIT

 Share

Recommended Posts

bybordo Newbie

bybordo

Posted
Posted 
Opt("TrayMenuMode", 1)

$tooltipisim = "Bordo Matematik Programları 1.0"
$parametre = '/S'

$iMsgBoxAnswer = _Bb_MsgBox("Bordo Matematik Programları", "Lütfen Kurulum Seçeneği Belirleyiniz.")
Select
	Case $iMsgBoxAnswer = 6 

	Case $iMsgBoxAnswer = 7

	Case $iMsgBoxAnswer = 2

EndSelect

Func _Bb_MsgBox($sTitle, $sText, $iTime = 0, $Hwnd = "")
	Local $ReturCode = 2
	Local $MSG_Form = GUICreate($sTitle, 350, 200, -1, -1)
	Local $MSG_ICON = GUICtrlCreateIcon("shell32.dll", 61, 10, 10, 32, 32)
	Local $MSG_LABEL = GUICtrlCreateLabel($sText, 43, 7, 300, 30, 0x001)
	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
	GUICtrlSetColor(-1, 0x0000FF)
	Local $Checkbox1 = GUICtrlCreateCheckbox("GeoGebra 4.4.5.0 TR", 12, 30, 130, 40)
	Local $Checkbox2 = GUICtrlCreateCheckbox("Cabri 3D 2.1.2", 12, 65, 130, 40)
	Local $Checkbox3 = GUICtrlCreateCheckbox("Drive 6", 12, 100, 130, 40)
	Local $MSG_BTN2 = GUICtrlCreateButton("Full Sürümlerini Yükle", 10, 160, 160, 23)
	Local $MSG_BTN1 = GUICtrlCreateButton("Deneme Sürümlerini Yükle", 180, 160, 160, 23)
	GUISetState(@SW_SHOW)
	While 1

		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3

				Exit
			Case $MSG_BTN1
				$ReturCode = 6
				If GUICtrlRead($Checkbox1) = 1 Then
					ShellExecuteWait(@TempDir & "\ggb.exe", $parametre)
					FileDelete(@TempDir & "\ggb.exe")
				EndIf
				If GUICtrlRead($Checkbox3) = 1 Then
					FileInstall("drive.exe", @TempDir & "\drive.exe", 1)
					ShellExecuteWait(@TempDir & "\drive.exe", $parametre)
					FileDelete(@TempDir & "\drive.exe")
				EndIf
				If GUICtrlRead($Checkbox2) = 1 Then
					FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1)
					ShellExecuteWait(@TempDir & "\cabri.exe", $parametre)
					FileDelete(@TempDir & "\cabri.exe")
				EndIf
				ExitLoop
			Case $MSG_BTN2
				$ReturCode = 7
				If GUICtrlRead($Checkbox1) = 1 Then
					FileInstall("ggb.exe", @TempDir & "\ggb.exe", 1)
					ShellExecuteWait(@TempDir & "\ggb.exe", $parametre)
					FileDelete(@TempDir & "\ggb.exe")
				EndIf
				If GUICtrlRead($Checkbox3) = 1 Then
					ShellExecuteWait(@TempDir & "\drive.exe", $parametre)
					FileInstall("drive6.exe", @ProgramFilesDir & "\TI Education\Derive 6 Trial Edition\Derive6.exe", 1)
					FileDelete(@TempDir & "\drive.exe")
				EndIf
				If GUICtrlRead($Checkbox2) = 1 Then
					FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1)
					ShellExecuteWait(@TempDir & "\cabri.exe", $parametre)
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "userName", "REG_SZ", "bybordo")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey", "REG_SZ", "asdsdfgdgfd")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey2", "REG_SZ", "rfertetreter")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "organization", "REG_SZ", "...")
					FileDelete(@TempDir & "\cabri.exe")
				EndIf
				ExitLoop
		EndSwitch
	WEnd
	GUIDelete($MSG_Form)
	Return $ReturCode
EndFunc   ;==>_Bb_MsgBox

; traytip krlm tamamlandı vss...

burada hiçbir checkbox seçilmediği zaman kurulum tuşuna basınca hata versin istiyorum (msgbox ile). yapamadım yardımcı olur musunuz ? bir de sağda boş kalan kısma nasıl resim ekleyebilirim ?

Link to comment
Share on other sites
  • Editor
pairs Explorer

pairs

Posted
  • Editor
Posted 
Opt("TrayMenuMode", 1)

$tooltipisim = "Bordo Matematik Programları 1.0"
$parametre = '/S'

$iMsgBoxAnswer = _Bb_MsgBox("Bordo Matematik Programları", "Lütfen Kurulum Seçeneği Belirleyiniz.")
Select
	Case $iMsgBoxAnswer = 6

	Case $iMsgBoxAnswer = 7

	Case $iMsgBoxAnswer = 2

EndSelect

Func _Bb_MsgBox($sTitle, $sText, $iTime = 0, $Hwnd = "")
	Local $ReturCode = 2
	Local $MSG_Form = GUICreate($sTitle, 350, 200, -1, -1)
	Local $MSG_ICON = GUICtrlCreateIcon("shell32.dll", 61, 10, 10, 32, 32)
	Local $MSG_LABEL = GUICtrlCreateLabel($sText, 43, 7, 300, 30, 0x001)
	GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
	GUICtrlSetColor(-1, 0x0000FF)
	Local $Checkbox1 = GUICtrlCreateCheckbox("GeoGebra 4.4.5.0 TR", 12, 30, 130, 40)
	Local $Checkbox2 = GUICtrlCreateCheckbox("Cabri 3D 2.1.2", 12, 65, 130, 40)
	Local $Checkbox3 = GUICtrlCreateCheckbox("Drive 6", 12, 100, 130, 40)
	Local $MSG_BTN2 = GUICtrlCreateButton("Full Sürümlerini Yükle", 10, 160, 160, 23)
	Local $MSG_BTN1 = GUICtrlCreateButton("Deneme Sürümlerini Yükle", 180, 160, 160, 23)
	GUISetState(@SW_SHOW)
	While 1

		$nMsg = GUIGetMsg()
		Switch $nMsg
			Case -3

				Exit
			Case $MSG_BTN1
				$ReturCode = 6
				If GUICtrlRead($Checkbox1) = 1 Then
					ShellExecuteWait(@TempDir & "\ggb.exe", $parametre)
					FileDelete(@TempDir & "\ggb.exe")
				ElseIf GUICtrlRead($Checkbox3) = 1 Then
					FileInstall("drive.exe", @TempDir & "\drive.exe", 1)
					ShellExecuteWait(@TempDir & "\drive.exe", $parametre)
					FileDelete(@TempDir & "\drive.exe")
				ElseIf GUICtrlRead($Checkbox2) = 1 Then
					FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1)
					ShellExecuteWait(@TempDir & "\cabri.exe", $parametre)
					FileDelete(@TempDir & "\cabri.exe")
				Else
					MsgBox(0,"Hata","Seçim yapınız.")
					ContinueCase
				EndIf
			ExitLoop
			Case $MSG_BTN2
				$ReturCode = 7
				If GUICtrlRead($Checkbox1) = 1 Then
					FileInstall("ggb.exe", @TempDir & "\ggb.exe", 1)
					ShellExecuteWait(@TempDir & "\ggb.exe", $parametre)
					FileDelete(@TempDir & "\ggb.exe")
				ElseIf GUICtrlRead($Checkbox3) = 1 Then
					ShellExecuteWait(@TempDir & "\drive.exe", $parametre)
					FileInstall("drive6.exe", @ProgramFilesDir & "\TI Education\Derive 6 Trial Edition\Derive6.exe", 1)
					FileDelete(@TempDir & "\drive.exe")
				ElseIf GUICtrlRead($Checkbox2) = 1 Then
					FileInstall("cabri.exe", @TempDir & "\cabri.exe", 1)
					ShellExecuteWait(@TempDir & "\cabri.exe", $parametre)
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "userName", "REG_SZ", "bybordo")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey", "REG_SZ", "asdsdfgdgfd")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "productKey2", "REG_SZ", "rfertetreter")
					RegWrite("HKEY_CURRENT_USER\Software\Cabrilog\Cabri3D-2.1", "organization", "REG_SZ", "...")
					FileDelete(@TempDir & "\cabri.exe")
				Else
					MsgBox(0,"Hata","Seçim yapınız.");
					ContinueCase
				EndIf


				ExitLoop
		EndSwitch
	WEnd
	GUIDelete($MSG_Form)
	Return $ReturCode
EndFunc   ;==>_Bb_MsgBox

; traytip krlm tamamlandı vss...

Kodlarını bu şekilde düzenlersen çözülecektir.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...