He estado mirando pero apenas se y he visto que usa Themida v2.x
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úyowsup-cli.py -c config.example --requestcode sms
para pedir el sms de verificacionyowsup-cli.py -c config.example --register xxxxxx (x = codigo de sms recibido)
php archivo.php
<?php
require_once('whatsprot.class.php');
$username = "34xxxxxxxxx";
$identity = strtolower(urlencode(sha1($username, true)));
$w = new WhatsProt($username, $identity, "Nick", true);
$w->Requestcode();
<?php
require_once('whatsprot.class.php');
$username = "34xxxxxxxxx";
$token = md5($username);
$nickname = "Nick";
$w = new WhatsProt($username, $token, $nickname, true);
$result = $w->registerCode("xxxxxx");
$password = $result->pw;
echo "Password is $password";
Cita de: SirGraham en 5 Enero 2010, 09:43 AM
Hola,
Que yo sepa en UMTS solo se mandan datos. Otra cosa es que se digitalize la voz en formato IP y la uses asi.
De echo cuando haces una llamada de Voz siempre pasa a modo GSM, no conozco que pueda funcionar el tema UMTS de forma solitaria (sin GSM) y con un estandard de Voz... (que no conozca no quiere decir que no exista).
Saludos,
Sir Graham.
Private Type BrowseInfo
hWndOwner As Long
pidlRoot As Long
sDisplayName As String
sTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function SHBrowseForFolder Lib "Shell32.dll" (bBrowse As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
'Add an editbox to the dialog: SHELL 5.0 or later only!
Private Const BIF_EDITBOX As Long = &H10
'insist on valid result (or CANCEL)
Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_USENEWUI As Long = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)
Private Const BIF_RETURNONLYFSDIRS As Long = 1
Private Function BrowseForDirectory() As String
Dim browse_info As BrowseInfo
Dim item As Long
Dim dir_name As String
browse_info.hWndOwner = hWnd
browse_info.pidlRoot = Carpeta
browse_info.sDisplayName = Space$(260)
browse_info.sTitle = "Selecionar una Carpeta"
browse_info.lpfn = 0
browse_info.lParam = 0
browse_info.iImage = 0
browse_info.ulFlags = BIF_USENEWUI Or BIF_RETURNONLYFSDIRS
item = SHBrowseForFolder(browse_info)
If item Then
dir_name = Space$(260)
If SHGetPathFromIDList(item, dir_name) Then
BrowseForDirectory = Left(dir_name, _
InStr(dir_name, Chr$(0)) - 1)
Carpeta = item
Else
BrowseForDirectory = ""
End If
End If
End Function
Private Sub Command3_Click()
sRutaBrowserFolder = BrowseForDirectory
Label8.Caption = sRutaBrowserFolder
End Sub