Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Nerox

Páginas: [1]
1
Visual Basic / Para los que quieren programar scripts de habbo o emuladores :S
« en: 26 de Diciembre de 2008, 14:59:30 pm »
Bueno he visto que hay muchos usuarios con ese tipo de intereses ;)

les voy a enseñar a crear un hotel alert, tambien lo pueden usar para hacer script CS.

Bueno creen 2 textbox y un command,

al primer textbox donde pondremos el header de la alerta le pondremos txthead.
al segundo textbox donde irá el cuerpo de la alerta le pondremos txtmsg. 

Ahora denle doble click al command que en el caption le pueden poner enviar alerta!. . . .  bueno al dar doble click pongan:

Citar
Dim Alert As String
Alert = txtmsg. Text
For a = 1 To frmMain. SockI
On Error Resume Next
frmMain. socket(a). SendData "BK" & txthead. Text & ":" & "<br>" & Alert & Chr(1)
Stuur = 0
Next a

y con eso una ves hecha conexion a habbo pueden enviar alertas como si fuesen staffs o si es para un emulador podran enviar alertas a su hotel!!!!!

2
Visual Basic / Como minimizar una ventana al estilo msn! [CODIGO]
« en: 26 de Diciembre de 2008, 14:54:27 pm »
esto no es un tuto solo es un codigo pero si tienen dudas preguntenlas ;)

Crea la funcion "Form_Resize()"

pon en el resize:

Citar
If WindowState = vbMinimized Then
Me. Hide
Me. Refresh
With nid
. cbSize = Len(nid)
. hwnd = Me. hwnd
. uId = vbNull
. uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
. uCallBackMessage = WM_MOUSEMOVE
. hIcon = Me. Icon
. szTip = Me. Caption & vbNullChar
End With
Shell_NotifyIcon NIM_ADD, nid
Else
Shell_NotifyIcon NIM_DELETE, nid
End If


Ahora crea un modulo llamado MOdsystray

y pon:

Citar
Option Explicit

Public Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const HWND_TOPMOST = -1

Public nid As NOTIFYICONDATA

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uId As Long
uFlags As Long
uCallBackMessage As Long
hIcon As Long
szTip As String * 64
End Type

agrega estas funciones tambien!!


Citar
Private Sub Form_Unload(Cancel As Integer)
Shell_NotifyIcon NIM_DELETE, nid
End
End Sub

Private Sub mnuexit_Click()
Unload Me
End Sub

Private Sub mnuRestore_Click()
WindowState = vbNormal
Me. Show
End Sub


Este tuto es hecho por  mi xD

Salu2'
Nerox

Páginas: [1]