Página 1 de 1

MI Primer Software

Publicado: 24 May 2011, 03:18
por Cyber90
Hola Amigos aqui os dejo mi Primer Programa en (AutoiT

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <File.au3>
#NoTrayIcon

$Serial = DriveGetSerial("C:\")
$VolumeLabel = DriveGetLabel("C:\")
$SpatiuTotal = DriveSpaceTotal("C:\")
$free = DriveSpaceFree("C:\")

$Form1 = GUICreate("Pc Info", 641, 386, -1, -1,BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP))
GUISetFont(8, 800, 0, "Comic Sans MS")
GUISetBkColor(0x000080)
$Label1 = GUICtrlCreateLabel("Computer Name:", 8, 10, 90, 17)
GUICtrlSetColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput(@ComputerName, 120, 8, 183, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label2 = GUICtrlCreateLabel("Curent User Name:", 8, 42, 108, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input2 = GUICtrlCreateInput(@UserName, 112, 40, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label3 = GUICtrlCreateLabel("Operating System:", 8, 74, 105, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input3 = GUICtrlCreateInput(@OSTYPE, 112, 72, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label4 = GUICtrlCreateLabel("Service pack:", 8, 106, 77, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input4 = GUICtrlCreateInput(@OSServicePack, 88, 104, 199, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label5 = GUICtrlCreateLabel("C: Serial Number:", 8, 138, 104, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input5 = GUICtrlCreateInput($Serial, 112, 136, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label6 = GUICtrlCreateLabel("C: Volume Label:", 8, 170, 96, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input6 = GUICtrlCreateInput($VolumeLabel, 112, 168, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label7 = GUICtrlCreateLabel("C: Total Space:", 8, 202, 91, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input7 = GUICtrlCreateInput($SpatiuTotal, 112, 200, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label8 = GUICtrlCreateLabel("C: Free space:", 8, 234, 84, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input8 = GUICtrlCreateInput($free, 104, 232, 183, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input19 = GUICtrlCreateInput(@IPAddress1, 80, 264, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input10 = GUICtrlCreateInput(@StartupDir, 112, 296, 175, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label9 = GUICtrlCreateLabel("IP Address:", 8, 266, 67, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Label10 = GUICtrlCreateLabel("Startup Directory:", 8, 298, 105, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Label11 = GUICtrlCreateLabel("Windows Directory:", 312, 10, 109, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Label12 = GUICtrlCreateLabel("System Folder Directory:", 296, 42, 141, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input11 = GUICtrlCreateInput(@WindowsDir, 424, 8, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Input12 = GUICtrlCreateInput(@SystemDir, 440, 40, 191, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label13 = GUICtrlCreateLabel("Desktop Directory:", 296, 74, 106, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input13 = GUICtrlCreateInput(@DesktopDir, 400, 72, 231, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label14 = GUICtrlCreateLabel("My Documents Directory:", 296, 106, 143, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input14 = GUICtrlCreateInput(@MyDocumentsDir, 440, 104, 191, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label15 = GUICtrlCreateLabel("Program File Directory:", 296, 138, 131, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input15 = GUICtrlCreateInput(@ProgramFilesDir, 424, 136, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label16 = GUICtrlCreateLabel("Start menu Directory:", 296, 170, 125, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input16 = GUICtrlCreateInput(@StartMenuDir, 424, 168, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label17 = GUICtrlCreateLabel("Desktop Width(Pixels)", 296, 202, 120, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input17 = GUICtrlCreateInput(@DesktopWidth, 424, 200, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label18 = GUICtrlCreateLabel("Desktop Height(Pixels)", 296, 234, 123, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input18 = GUICtrlCreateInput(@DesktopHeight, 424, 232, 207, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label19 = GUICtrlCreateLabel("Date:/", 296, 266, 40, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input29 = GUICtrlCreateInput(@MON & "-" & @MDAY & "-" & @YEAR, 336, 264, 295, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Label20 = GUICtrlCreateLabel("Time:/", 296, 298, 41, 20)
GUICtrlSetColor(-1, 0xFF0000)
$Input20 = GUICtrlCreateInput(@HOUR & ":" & @MIN & ":" & @SEC, 336, 296, 295, 24, BitOR($ES_AUTOHSCROLL,$WS_BORDER), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
$Button2 = GUICtrlCreateButton("Copy Date/Time", 128, 328, 107, 25, BitOR($WS_GROUP,$WS_BORDER))
$Button3 = GUICtrlCreateButton("Info !!", 376, 328, 107, 25, BitOR($WS_GROUP,$WS_BORDER))
$Button4 = GUICtrlCreateButton("Credit", 496, 328, 107, 25, BitOR($WS_GROUP,$WS_BORDER))
GUICtrlSetCursor (-1, 0)
$Button5 = GUICtrlCreateButton("X", 608, 328, 27, 25, BitOR($WS_GROUP,$WS_BORDER), $WS_EX_STATICEDGE)
GUICtrlSetCursor (-1, 0)
$Button1 = GUICtrlCreateButton("Save Data All", 8, 328, 107, 25, BitOR($WS_GROUP,$WS_BORDER))
$Button6 = GUICtrlCreateButton("Delete All", 256, 328, 107, 25, BitOR($WS_GROUP,$WS_BORDER))
$Label21 = GUICtrlCreateLabel("Computer Info BY Cyber Denys ...Please Visit www.serialcod.blogspot.com", 24, 360, 595, 18, $WS_BORDER)
GUICtrlSetFont(-1, 9, 800, 0, "Copperplate Gothic Bold")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)


While 1
	GUICtrlSetData($Input20,@HOUR & ":" & @MIN & ":" & @SEC)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			$variabila = FileSaveDialog("Choose a name.", @DesktopDir, "TXT (*.txt)",2)
			$deschide = FileOpen($variabila&".txt",1)
			FileWriteLine($deschide,GUICtrlRead($Input1))
			FileWriteLine($deschide,GUICtrlRead($Input2))
			FileWriteLine($deschide,GUICtrlRead($Input3))
			FileWriteLine($deschide,GUICtrlRead($Input4))
			FileWriteLine($deschide,GUICtrlRead($Input5))
			FileWriteLine($deschide,GUICtrlRead($Input6))
			FileWriteLine($deschide,GUICtrlRead($Input7))
			FileWriteLine($deschide,GUICtrlRead($Input8))

			FileWriteLine($deschide,GUICtrlRead($Input10))
			FileWriteLine($deschide,GUICtrlRead($Input11))
			FileWriteLine($deschide,GUICtrlRead($Input12))
			FileWriteLine($deschide,GUICtrlRead($Input13))
			FileWriteLine($deschide,GUICtrlRead($Input14))
			FileWriteLine($deschide,GUICtrlRead($Input15))
            FileWriteLine($deschide,GUICtrlRead($Input16))
			FileWriteLine($deschide,GUICtrlRead($Input17))
			FileWriteLine($deschide,GUICtrlRead($Input18))
			FileWriteLine($deschide,GUICtrlRead($Input19))
			FileWriteLine($deschide,GUICtrlRead($Input20))
			FileWriteLine($deschide,GUICtrlRead($Input29))











		Case $Button2
			ClipPut("Ora: "&@HOUR & ":" & @MIN & ":" & @SEC & " Data: "&@MON & "-" & @MDAY & "-" & @YEAR)




		Case $Button3
			MsgBox(64,"Info","BY CyberDenys")

		Case $Button5
		ShellExecute("http://serialcod.blogspot.com")
Sleep(10)
Exit(-1)
		Case $Button6
			GUICtrlSetData($Input1,"")
			GUICtrlSetData($Input2,"")
			GUICtrlSetData($Input3,"")
			GUICtrlSetData($Input4,"")
			GUICtrlSetData($Input5,"")
			GUICtrlSetData($Input6,"")
			GUICtrlSetData($Input7,"")
			GUICtrlSetData($Input8,"")

			GUICtrlSetData($Input10,"")
			GUICtrlSetData($Input11,"")
			GUICtrlSetData($Input12,"")
			GUICtrlSetData($Input13,"")
			GUICtrlSetData($Input14,"")
			GUICtrlSetData($Input15,"")
			GUICtrlSetData($Input16,"")
			GUICtrlSetData($Input17,"")
			GUICtrlSetData($Input18,"")
			GUICtrlSetData($Input19,"")




EndSwitch
WEnd

Re: MI Primer Software

Publicado: 24 May 2011, 03:25
por BasicOs
Gracias por el aporte,
Salu22:)

Re: MI Primer Software

Publicado: 24 May 2011, 03:27
por Cyber90
De naa MAXO Espero que tu tambien te sacas unas cuantas buenas programas :D te espero a Luxar contra mi JAJAJA

Re: MI Primer Software

Publicado: 24 May 2011, 08:54
por Ximorro
Podías explicar un poco lo que hace, a modo de presentación del programa, hombre...

No me parece muy bien que al cerrarlo obligatoriamente te mande a una página web, podía preguntar. Y tampoco está bien que esa página a la que mandas sea de descarga ilegal de software, por favor cambia eso que no queremos tener problemas con filtros y listas negras...

Está bien modificar programas hechos por otros, así también se aprende, pero deberías dar los créditos correspondientes, por si has perdido la fuente te lo pongo aquí (aunque he encontrado varios prácticamente iguales, igual te inspiraste en otro):
http://www.autoitscript.com/forum/topic ... ntry581917

Ya que este es un foro hispano es buena idea al menos traducir los códigos que adaptemos (si lo pones directamente para mostrarnos lo que ha hecho otro pues no, pero si lo modificas diciendo que es tuyo creo que es lo mínimo).
Traducir no es sólo pasar los textos, también cosas como poner el día antes del mes, no sé de donde eres pero creo que en el mundo hispano se usa más así (puede que haya excepciones, si es así estaremos encantados de ser informados).

Ah, y "ora" es con hache, claro que igual es italiano ;-)

Una sugerencia, es mejor poner nombres significativos a los botones, inputs, y en realidad a las variables en general. Así si modificas o analizas un programa que escribiste hace un tiempo es por ejemplo más fácil saber que hace el botón $btnSalir que $Button5, por ejemplo.

Re: MI Primer Software

Publicado: 24 May 2011, 13:09
por Cyber90
pero que explicaciones tio si bez alli el scruipt es un PC INFO(INFO ORDENADOR) en español :D