Autor
|
Tema: ayuda con modem (Leído 1,494 veces)
|
R-Q-X
Desconectado
Mensajes: 43
|
holas keria saber como hacer para q el modem marque y conectarse a internet. lo necesito hacer con un modem de 56kb/s. existe alguna api para realizar esto??
desde ya graz
|
|
|
En línea
|
Que fue lo mas inteligente que salio de la boca de una mujer? la p*j* de A.Einstein
|
|
|
zumbah
Desconectado
Mensajes: 34
...asi, cayéndose...
|
No te entiendo. Replantea la pregunta. Saludos.
|
|
|
En línea
|
|
|
|
R-Q-X
Desconectado
Mensajes: 43
|
Ok. quiero saber si se puede hacer un programa que haga q el modem se conecte y si existia alguna api..porque necesito q el modem se conecte desconecte a cierta hora.
Salu2 grax
|
|
|
En línea
|
Que fue lo mas inteligente que salio de la boca de una mujer? la p*j* de A.Einstein
|
|
|
̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿
Desconectado
Mensajes: 54
|
Mal planteada pero legible, sin necesidad de replantear
|
|
|
En línea
|
jajajaja xD ya no me puedo cambiar el nick no me deja el deste como admin del perfil xD
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
Mira lo saque de la Api Guide, espero que te sirva: 'This program let you dial to your dial-up connections using whether 'the stored user name and password or the ones you specifies '(It use RasDial for dialing)
'You need a form with a list,2 textbox and a command button
Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, ByVal pSrc As String, ByVal ByteLen As Long) Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)
Const RAS95_MaxEntryName = 256 Const RAS_MaxPhoneNumber = 128 Const RAS_MaxCallbackNumber = RAS_MaxPhoneNumber
Const UNLEN = 256 Const PWLEN = 256 Const DNLEN = 12 Private Type RASDIALPARAMS dwSize As Long ' 1052 szEntryName(RAS95_MaxEntryName) As Byte szPhoneNumber(RAS_MaxPhoneNumber) As Byte szCallbackNumber(RAS_MaxCallbackNumber) As Byte szUserName(UNLEN) As Byte szPassword(PWLEN) As Byte szDomain(DNLEN) As Byte End Type
Private Type RASENTRYNAME95 'set dwsize to 264 dwSize As Long szEntryName(RAS95_MaxEntryName) As Byte End Type
Private Declare Function RasDial Lib "rasapi32.dll" Alias "RasDialA" (ByVal lprasdialextensions As Long, ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByVal dword As Long, lpvoid As Any, ByRef lphrasconn As Long) As Long Private Declare Function RasEnumEntries Lib "rasapi32.dll" Alias "RasEnumEntriesA" (ByVal reserved As String, ByVal lpszPhonebook As String, lprasentryname As Any, lpcb As Long, lpcEntries As Long) As Long Private Declare Function RasGetEntryDialParams Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" (ByVal lpcstr As String, ByRef lprasdialparamsa As RASDIALPARAMS, ByRef lpbool As Long) As Long
Private Function Dial(ByVal Connection As String, ByVal UserName As String, ByVal Password As String) As Boolean Dim rp As RASDIALPARAMS, h As Long, resp As Long rp.dwSize = Len(rp) + 6 ChangeBytes Connection, rp.szEntryName ChangeBytes "", rp.szPhoneNumber 'Phone number stored for the connection ChangeBytes "*", rp.szCallbackNumber 'Callback number stored for the connection ChangeBytes UserName, rp.szUserName ChangeBytes Password, rp.szPassword ChangeBytes "*", rp.szDomain 'Domain stored for the connection 'Dial resp = RasDial(ByVal 0, ByVal 0, rp, 0, ByVal 0, h) 'AddressOf RasDialFunc Dial = (resp = 0) End Function
Private Function ChangeToStringUni(Bytes() As Byte) As String 'Changes an byte array to a Visual Basic unicode string Dim temp As String temp = StrConv(Bytes, vbUnicode) ChangeToStringUni = Left(temp, InStr(temp, Chr(0)) - 1) End Function
Private Function ChangeBytes(ByVal str As String, Bytes() As Byte) As Boolean 'Changes a Visual Basic unicode string to an byte array 'Returns True if it truncates str Dim lenBs As Long 'length of the byte array Dim lenStr As Long 'length of the string lenBs = UBound(Bytes) - LBound(Bytes) lenStr = LenB(StrConv(str, vbFromUnicode)) If lenBs > lenStr Then CopyMemory Bytes(0), str, lenStr ZeroMemory Bytes(lenStr), lenBs - lenStr ElseIf lenBs = lenStr Then CopyMemory Bytes(0), str, lenStr Else CopyMemory Bytes(0), str, lenBs 'Queda truncado ChangeBytes = True End If End Function
Private Sub Command1_Click() Dial List1.Text, Text1, Text2 End Sub
Private Sub List1_Click() Dim rdp As RASDIALPARAMS, t As Long rdp.dwSize = Len(rdp) + 6 ChangeBytes List1.Text, rdp.szEntryName 'Get User name and password for the connection t = RasGetEntryDialParams(List1.Text, rdp, 0) If t = 0 Then Text1 = ChangeToStringUni(rdp.szUserName) Text2 = ChangeToStringUni(rdp.szPassword) End If End Sub
Private Sub Form_Load() 'example created by Daniel Kaufmann (daniel@i.com.uy) 'load the connections Text2.PasswordChar = "*" Command1.Caption = "Dial" Dim s As Long, l As Long, ln As Long, a$ ReDim r(255) As RASENTRYNAME95 r(0).dwSize = 264 s = 256 * r(0).dwSize l = RasEnumEntries(vbNullString, vbNullString, r(0), s, ln) For l = 0 To ln - 1 a$ = StrConv(r(l).szEntryName(), vbUnicode) List1.AddItem Left$(a$, InStr(a$, Chr$(0)) - 1) Next If List1.ListCount > 0 Then List1.ListIndex = 0 List1_Click End If End Sub
|
|
|
En línea
|
|
|
|
R-Q-X
Desconectado
Mensajes: 43
|
gracias Sancho.Mazorka pero no logro q ese codigo haga q el modem se conecte a internet
Aver "Visual Basic" lo q necesito es un code q haga el modem se conecte a internet. Y tengo la necesida de plantear porq lo necesito para q el modem se conecte y desconecte a tal hora entre otras cosas!
|
|
|
En línea
|
Que fue lo mas inteligente que salio de la boca de una mujer? la p*j* de A.Einstein
|
|
|
Sancho.Mazorka
Desconectado
Mensajes: 480
Gamer & Programador
|
Proba usar las opciones de DOS llamadas rasphone pone eso en DOS y te tira unas ayudas, lo que podes hacer es un shell rasphone(PARAMETROS) Si no entendiste bien, avisame (cualquier cosa pone en la consola rasphone /help)
|
|
« Última modificación: 21 Junio 2007, 05:44 am por Sancho.Mazorka »
|
En línea
|
|
|
|
|
|