Duda para crear un ''programa''

Iniciado por Sr.papanoel, 8 Mayo 2011, 12:57 PM

0 Miembros y 1 Visitante están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

Sr.papanoel

8 Mayo 2011, 12:57 PM
Hola, bueno como veis soy nuevo en este foro, y me gustaría hacer un ''programa'' pero no sé con que lenguaje ni con que programa lo podría hacer...
Por esto posteo, esto, para que me ayudéis...
El ''programa'' que quiero hacer consta, en que este programado de tal forma en que cuando lo ejecutes, una información de el pc se me envíe algún correo o alguna otra parte ...
(NO ESTÁ ECHO PARA HACER MALDADES)
Bueno, pues eso es todo...
Me gustaría que me ayudaseis os lo agradecería muchísimo.
Un saludo :D

WHK

#1
8 Mayo 2011, 13:15 PM
Hola, puedes hacerlo en c++, es lo más básico, también puedes usar otros lenguajes mas fáciles como visual pero tienes el inconveniente de las dependencias.

Te recomiendo c++, averigua sobre apis en windows para c++ y como usar winsock en dev cpp.

Toda la información que necesitas de una pc se encuentra en el registro del sistema.

Acá tengo el código fuente de un módulo clase para visual basic 6 en donde verás en que lugar se encuentran los datos en el registro del sistema y si te sirve el código pues mejor todavía:

Código (vb) [Seleccionar]
'Recopilación de múltiples ejemplos sobre el manejo de información.
'Recopilado y modificado por WHK.

Option Explicit
Private m_os As OSVERSIONINFO
Private m_NT As Boolean
Private m_95 As Boolean
Private m_98 As Boolean

Private Sub Class_Initialize()
Dim nNull As Long
m_os.dwOSVersionInfoSize = Len(m_os)
Call GetVersionEx(m_os)

nNull = InStr(m_os.szCSDVersion, vbNullChar)
If nNull > 1 Then
m_os.szCSDVersion = Left(m_os.szCSDVersion, nNull - 1)
ElseIf nNull = 1 Then
m_os.szCSDVersion = ""
End If

Select Case m_os.dwPlatformId
Case VER_PLATFORM_WIN32_WINDOWS
If m_os.dwMinorVersion >= 10 Then
 m_95 = False
 m_98 = True
Else
 m_95 = True
 m_98 = False
End If
m_NT = False
Case VER_PLATFORM_WIN32_NT
m_95 = False
m_98 = False
m_NT = True
End Select
End Sub

Public Property Get PlatformID() As Long
PlatformID = m_os.dwPlatformId
End Property

Public Property Get Platform() As String
If m_95 Then
Platform = "Windows 95"
ElseIf m_98 Then
Platform = "Windows 98"
ElseIf m_NT Then
Platform = "Windows NT"
Else
Platform = "Desconocido"
End If
End Property

Public Property Get Version() As String
Version = Platform & " v" & m_os.dwMajorVersion & "." & m_os.dwMinorVersion & ", Build " & WordLo(m_os.dwBuildNumber)
End Property

Public Property Get CSDVersion() As String
CSDVersion = Trim(m_os.szCSDVersion)
End Property

Public Property Get ComputerName() As String
Dim X As Integer
Dim Y As String

Y = String(255, " ")
X = GetComputerName(Y, 256)
Y = Trim(Y)
If Len(Y) > 0 Then
ComputerName = Left(Y, Len(Y) - 1)
End If
If Trim(ComputerName) = "" Then
ComputerName = "Desconocido"
End If
End Property

Public Property Get UserName() As String
Dim X As Integer
Dim Y As String

Y = String(255, " ")
X = GetUserName(Y, 256)
Y = Trim(Y)
If Len(Y) > 0 Then
UserName = Left(Y, Len(Y) - 1)
End If
If Trim(UserName) = "" Then
UserName = "Desconocido"
End If
End Property


Public Property Get RegCompany() As String
RegCompany = GetStringKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "RegisteredOrganization")
If Trim(RegCompany) = "" Then
RegCompany = GetStringKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "RegisteredOrganization")
End If
If Trim(RegCompany) = "" Then
RegCompany = "Desconocido"
End If
End Property


Public Property Get Sistema_Operativo() As String
Sistema_Operativo = GetStringKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProductName")
If Trim(Sistema_Operativo) = "" Then
Sistema_Operativo = GetStringKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")
End If
If Trim(Sistema_Operativo) = "" Then
Sistema_Operativo = "Desconocido"
End If
End Function

Public Property Get ProgramsPath() As String
ProgramsPath = GetStringKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion", "ProgramFilesDir")
If Trim(ProgramsPath) = "" Then
ProgramsPath = "Desconocido"
Exit Property
End If
If Right(ProgramsPath, 1) <> "\" Then
ProgramsPath = ProgramsPath & "\"
End If
End Property

Public Property Get WinPath() As String
Dim RTN
Dim Buffer As String
Buffer = Space(144)
RTN = GetWindowsDirectory(Buffer, Len(Buffer))
WinPath = Left(Buffer, RTN)
If Trim(WinPath) = "" Then
WinPath = "Desconocido"
Exit Property
End If
If Right(WinPath, 1) <> "\" Then
WinPath = WinPath & "\"
End If
End Property

Public Property Get TempPath() As String
Dim RTN
Dim Buffer As String
Buffer = Space(255)
RTN = GetTempPath(Len(Buffer), Buffer)
TempPath = Left(Buffer, RTN)
If Trim(TempPath) = "" Then
TempPath = "Desconocido"
Exit Property
End If
If Right(TempPath, 1) <> "\" Then
TempPath = TempPath & "\"
End If
End Property

Public Property Get SysPath() As String
Dim RTN
Dim Buffer As String
Buffer = Space(144)
RTN = GetSystemDirectory(Buffer, Len(Buffer))
SysPath = Left(Buffer, RTN)
If Trim(SysPath) = "" Then
SysPath = "Desconocido"
Exit Property
End If
If Right(SysPath, 1) <> "\" Then
SysPath = SysPath & "\"
End If
End Property

Public Property Get DirectXVer() As String
DirectXVer = GetStringKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\DirectX", "Version")
DirectXVer = "DirectX " & Mid(DirectXVer, 4, 3) & " (" & DirectXVer & ")"
If Trim(DirectXVer) = "" Then
  DirectXVer = "Desconocido"
End If
End Property

Public Property Get ScrResolution() As String
Dim iWidth As Integer
Dim iHeight As Integer
iWidth = Screen.Width / Screen.TwipsPerPixelX
iHeight = Screen.Height / Screen.TwipsPerPixelY
ScrResolution = iWidth & "x" & iHeight & "x" & ColorDepth
End Property

Public Property Get ColorDepth() As String
Dim lhDC As Long, lPlanes As Long, lBitsPerPixel As Integer
lhDC = CreateIC("DISPLAY", 0&, 0&, 0&)
If lhDC = 0 Then ColorDepth = "Desconocido": Exit Property
lPlanes = GetDeviceCaps(lhDC, PLANES)
lBitsPerPixel = GetDeviceCaps(lhDC, BITSPIXEL)
lhDC = DeleteDC(lhDC)
Select Case lPlanes
Case 1
 Select Case lBitsPerPixel
  Case 4: ColorDepth = "4 Bit 16 Colors"
  Case 8: ColorDepth = "8 Bit 256 Colors"
  Case 16: ColorDepth = "16 Bit High Color"
  Case 24: ColorDepth = "24 Bit True Color"
  Case 32: ColorDepth = "32 Bit True Color"
 End Select
Case 4
 ColorDepth = "16 Bit High Color"
Case Else
 ColorDepth = "Undetermined"
End Select
End Property


Public Property Get CPU_Modelo() As String
CPU_Modelo = GetStringKey(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "Identifier")
If Trim(CPU_Modelo) = "" Then
CPU_Modelo = GetStringKey(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "VendorIdentifier")
End If
If Trim(CPU_Modelo) = "" Then
CPU_Modelo = "Desconocido"
End If
End Property


Public Property Get CPU_Nombre() As String
CPU_Nombre = GetStringKey(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", "ProcessorNameString")
If Trim(CPU_Nombre) = "" Then
CPU_Nombre = "Desconocido"
End If
End Property

Public Property Get CPU_Velocidad() As String
CPU_Velocidad = GetDWORDKey(HKEY_LOCAL_MACHINE, "Hardware\Description\System\CentralProcessor\0", Chr(126) & "MHz")
If Trim(CPU_Velocidad) = "" Then
CPU_Velocidad = "Desconocido"
End If
End Function

Public Property Get Memoria_RAM_Total() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_RAM_Total = Format(InfoMemoria.dwTotalPhys / 1024 / 1021.45, "###.##")
End Property

Public Property Get Memoria_RAM_Libre() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_RAM_Libre = Format(InfoMemoria.dwAvailPhys / 1024 / 1021.45, "###.##")
End Property

Public Property Get Memoria_Virtual_Total() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_Virtual_Total = Format(InfoMemoria.dwTotalVirtual / 1024 / 1021.45, "###.##")
End Property

Public Property Get Memoria_Virtual_Libre() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_Virtual_Libre = Format(InfoMemoria.dwAvailVirtual / 1024 / 1021.45, "###.##")
End Property

Public Property Get Memoria_PaginacionArchivo_Total() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_PaginacionArchivo_Total = Format(InfoMemoria.dwTotalPageFile / 1024 / 1021.45, "###.##")
End Property

Public Property Get Memoria_PaginacionArchivo_Libre() As Double
Dim InfoMemoria As MEMORYSTATUS
Call GlobalMemoryStatus(InfoMemoria)
Memoria_PaginacionArchivo_Libre = Format(InfoMemoria.dwAvailPageFile / 1024 / 1021.45, "###.##")
End Property

Public Property Get Mouse_Coordenadas() As String
Dim Coordenadas As POINTAPI
Call GetCursorPos(Coordenadas)
Mouse_Coordenadas = Coordenadas.X & ", " & Coordenadas.Y
End Property

Public Property Get Tiempo_PC_Encendido()
Dim MilloSec, Dias, Horas, Minutos, Segundos As Long
MilloSec = GetTickCount()
Segundos = MilloSec \ 1000
Dias = Segundos \ (24& * 3600&)
If Dias > 0 Then Segundos = Segundos - (24 * 3600 * Dias)
Horas = Segundos \ 3600
If Horas > 0 Then Segundos = Segundos - (3600 * Horas)
Minutos = Segundos \ 60
Segundos = Segundos Mod 60
Tiempo_PC_Encendido = "Dias:" & Dias & " Hrs:" & Horas & " Min:" & Minutos & " Seg:" & Segundos
End Property

Public Property Get HDDSpace() As String
Dim HD, Cuenta, Status As Long
Dim HDDLetter, GetHDD, HDS As String
Dim TotalBytes, FreeBytes, BytesAvailableToCaller, FreeMB, TotalMB As Currency

For Cuenta = Asc("C") To Asc("Z")
If GetDriveType(Chr(Cuenta) + ":\") = 3 Then
GetHDD = GetHDD & Chr(Cuenta)
End If
Next Cuenta

HD = Len(GetHDD)
For Cuenta = 1 To HD
HDDLetter = Mid(GetHDD, Cuenta, 1)
Status = GetDiskFreeSpaceEx(HDDLetter & ":", BytesAvailableToCaller, TotalBytes, FreeBytes)
If Status <> 0 Then
 TotalMB = Format((TotalBytes * 10000) / 1000000, "###")
 FreeMB = Format((FreeBytes * 10000) / 1000000, "###")
 HDS = HDS & "Drive " & HDDLetter & ": " & FreeMB & " MB of " & TotalMB & " MB "
End If
Next Cuenta
HDDSpace = HDS
End Property

Public Property Get Tiempo_Local() As String
Tiempo_Local = Format(Time, "hh:mm:ss")
End Property
Private Function WordLo(LongIn As Long) As Integer
If (LongIn And &HFFFF&) > &H7FFF Then
WordLo = (LongIn And &HFFFF&) - &H10000
Else
WordLo = LongIn And &HFFFF&
End If
End Function

LightHades

#2
8 Mayo 2011, 14:35 PM
Antes de nada yo de ti me aprendería algun lenguaje de programación tipo C++, java... ya que si te meten el codigo asi no aprenderás nada, a no ser que no quieras aprender ^^

Sr.papanoel

#3
9 Mayo 2011, 09:20 AM
Gracias, pero me habían dicho de programarlo en ''batch'', que resulta mas sencillo...
Que crees?
Un saludo :D

skapunky

#4
9 Mayo 2011, 11:23 AM
batch es perder el tiempo, te recomiendo o "C" o "delphi", si en parte no te interesa demasiado la programación y quieres ir a lo rapido puedes probar con "visual basic" aunque uses el lenguaje que uses, deberás aprender las bases para programar y eso es tiempo. En dos meses según como te puedes quedar corto así que si empiezas de zero mentalizate porque va para largo.
Killtrojan Syslog v1.44: ENTRAR

Sr.papanoel

#5
11 Mayo 2011, 12:52 PM
Lo que quiero es hacer el programa rápido... y que funcione.
Por eso elegí usar BATCH
Un saludo

N3Tw0lf

#6
14 Mayo 2011, 21:11 PM
Lo que pasa es que algunas veces en batch los comandos pueden fallar y te dejaria sin la info que queres recibir, imaginate si lo que vos "infectas" tiene windows vista que tiene muchos errores o windows seven que cambiaron algunas cosas. Aparte batch es algo como para que puedas ejecutar algunos procesos en tu propia pc pero en otras algunas cosas cambian depende de quien reciba la info tambien imaginate que esa info la reciba alguien que sabe apenas un poco de su entorno con solo poner el mouse arriba del archivo, tocar el  boton derecho y clickear Editar podria ver lo que queres hacer en su computadora . En cambio en un lenguaje todo es mas seguro , desde mi punto de vista en un lengua de programacion vos creas tus propias reglas de como queres que se hagan las cosas en cambio en batch vas a estas siempre limitado al entorno guindous , no quiero desprestigiar batch la mayoria empesamos por ahi pero lo mejor es aprenderse un lenguaje de programacion . Con respecto a que lenguaje te podria recomendar diria que uses uno que este orientado a objetos , POO, personalmente yo empese programando en batch despues me pase al turbo de pascal y desde que conoci delphi aprendi muchisimas cosas y es muy facil de aprender.

Salud y exitos.
Experiencia es el nombre que le damos a nuestros errores
Imprimir
Ir Arriba Páginas1
Acciones del Usuario