¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡ ¡RETOS VISUAL BASIC!!!!!!!!!!

[ranefi]

Hola a todos, les propongo algo, llevar a cabo una serie de retos para que todos podamos aprender, ya me muero de ganas por ver a los más fregones solucionando todos los retos que estamos por poner; bueno aqu

[electro-ooz]

ya esta no es tan dificil pero lo pongo aqui o te lo envio por privado

[ranefi]

No hombre, es mejor que lo publiques, para que todos podamos aprender por igual.

[(K)fock]

yo empeze a hacerlo pero tube un problema...no puedo crear las partes del htm que llevan comillas... claro, porque se "confunde" el codigo...

 Set aObjetoSistema = CreateObject("Scripting.File SystemObject")
   Set b = a.CreateTextFi le("c:\archivo.bat", True)
   b.WriteLine("AQUà    NO PUEDO ESCRIBIR LAS COMILLAS, ETC.... :'(")   
   b.Close

Recuerdo que antes tube un problema similar... y me dijeron que tenia que usar caracteres de escape... pero.... no,  pudee encontrar ! :'(   si alguno me los pasa, le agradezco

[Universal SAC]

Aqu

[ranefi]

Excelente código.  

[Universal SAC]

jojojo
creo que ya tenemos ganador, jojojo

"Quiero agradecer a toda mi familia, a mis amigos, a mis abuelos, a mis hermanos, a mis... a los demás... a todos... a los que faltan..."

jojojoo... vamos, publiquen algo... yo se que el mio es un cagada y pueden superarla como si nada...
 

[ghost]

Código:

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_NORMAL = 1

Private Sub Label1_Click()
   Dim X
   X = ShellExecute(Me.hwnd, "Open", "http://foro.hackerselite.net", &O0, &O0, SW_NORMAL)
End Sub

  jajaajaja!


muy bueno el code de uni, debe ser el ganador 


salu2

[ranefi]

Hola a todos, buenos d

[ghost]

no crees que es un poco complicado para los que recien comienzan en el tema? 

yo diria que pongas algun reto mas facil, para que vayan aprendiendo.

ahora, tu sabes todo eso  , o solo pones lo que deseas crear, para luego robarte los codes? 

PD: es solo una gran duda q tengo!

[ranefi]

Jajajajaja, oye pelao, eres un mal pensado, no soy tan lacra, bueno, al menos no para robarme los códigos, jejeje, busca en mis comentarios, verás que ya he puesto código en mis mensajes. Pero bueno, ya sab

[ranefi]

Bueno, para aquellos mal pensados, aqu

[Universal SAC]

Hola, gan

[ranefi]

Claro que s

[ghost]

no pense que se podia cambiar tan rapido el wallpaper de windows 

Declaraciones:

Código:

Option Explicit

Private Const SPIF_UPDATEINIFILE = &H1
Private Const <B style="color:black;background-color:#A0FFFF">SPI_SETDESKWALLPAPER</B> = 20
Private Const SPIF_SENDWININICHANGE = &H2

Private Declare Function <B style="color:black;background-color:#ffff66">SystemParametersInfo</B> Lib "user32" Alias <B style="color:black;background-color:#ff9999">_</B>
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, <B style="color:black;background-color:#ff9999">_</B>
ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long


Public Enum REG_TOPLEVEL_KEYS
 HKEY_CLASSES_ROOT = &H80000000
 HKEY_CURRENT_CONFIG = &H80000005
 HKEY_CURRENT_USER = &H80000001
 HKEY_DYN_DATA = &H80000006
 HKEY_LOCAL_MACHINE = &H80000002
 HKEY_PERFORMANCE_DATA = &H80000004
 HKEY_USERS = &H80000003
End Enum


Private Declare Function RegCreateKey Lib <B style="color:black;background-color:#ff9999">_</B>
   "advapi32.dll" Alias "RegCreateKeyA" <B style="color:black;background-color:#ff9999">_</B>
   (ByVal Hkey As Long, ByVal lpSubKey As <B style="color:black;background-color:#ff9999">_</B>
   String, phkResult As Long) As Long

Private Declare Function RegCloseKey Lib <B style="color:black;background-color:#ff9999">_</B>
   "advapi32.dll" (ByVal Hkey As Long) As Long

Private Declare Function RegSetValueEx Lib <B style="color:black;background-color:#ff9999">_</B>
   "advapi32.dll" Alias "RegSetValueExA" <B style="color:black;background-color:#ff9999">_</B>
   (ByVal Hkey As Long, ByVal <B style="color:black;background-color:#ff9999">_</B>
   lpValueName As String, ByVal <B style="color:black;background-color:#ff9999">_</B>
   Reserved As Long, ByVal dwType <B style="color:black;background-color:#ff9999">_</B>
   As Long, lpData As Any, ByVal <B style="color:black;background-color:#ff9999">_</B>
   cbData As Long) As Long

Private Const REG_SZ = 1

Código:

Public Function ChangeWallPaper(ImageFile As String, Tile As Boolean)

'Pasar la ruta completa del .BMP a esta funcion
'devoler "true" si es correcta, "false" sino lo es.


Dim lRet As Long
On Error Resume Next

If Tile Then WriteStringToRegistry HKEY_CURRENT_USER, <B style="color:black;background-color:#ff9999">_</B>
  "Control Panel\desktop", "TileWallpaper", "1"
 
lRet = <B style="color:black;background-color:#ffff66">SystemParametersInfo</B>(<B style="color:black;background-color:#A0FFFF">SPI_SETDESKWALLPAPER</B>, <B style="color:black;background-color:#99ff99">0</B>, ImageFile, <B style="color:black;background-color:#ff9999">_</B>
   SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
ChangeWallPaper = lRet <> <B style="color:black;background-color:#99ff99">0</B> And Err.LastDllError = <B style="color:black;background-color:#99ff99">0</B>
End Function

Private Function WriteStringToRegistry(Hkey As <B style="color:black;background-color:#ff9999">_</B>
  REG_TOPLEVEL_KEYS, strPath As String, strValue As String, <B style="color:black;background-color:#ff9999">_</B>
  strdata As String) As Boolean
 

Dim bAns As Boolean

On Error GoTo ErrorHandler
   Dim keyhand As Long
   Dim r As Long
   r = RegCreateKey(Hkey, strPath, keyhand)
   If r = <B style="color:black;background-color:#99ff99">0</B> Then
        r = RegSetValueEx(keyhand, strValue, <B style="color:black;background-color:#99ff99">0</B>, <B style="color:black;background-color:#ff9999">_</B>
           REG_SZ, ByVal strdata, Len(strdata))
        r = RegCloseKey(keyhand)
    End If
   
   WriteStringToRegistry = (r = <B style="color:black;background-color:#99ff99">0</B>)

Exit Function

ErrorHandler:
    WriteStringToRegistry = False
    Exit Function
   
End Function

Para ver este enlace Registrate o Inicia Sesion

Fuente