ايران ويج

دوست عزیز اگر یک بار به برنامه نگاه بندازید متوجه می شین چی می گم

I have this code in a module: (Module1)

Public Declare Function RasGetEntryDialParams _
Lib "rasapi32.dll" Alias "RasGetEntryDialParamsA" _
(ByVal lpszPhonebook As String, _
lpRasDialParams As Any, _
blnPasswordRetrieved As Long) As Long

Public Declare Function RasSetEntryDialParams _
Lib "rasapi32.dll" Alias "RasSetEntryDialParamsA" _
(ByVal lpszPhonebook As String, _
lpRasDialParams As Any, _
ByVal blnRemovePassword As Long) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)

Public Type VBRasDialParams
EntryName As String
PhoneNumber As String
CallbackNumber As String
UserName As String
Password As String
Domain As String
SubEntryIndex As Long
RasDialFunc2CallbackId As Long
End Type


'BytesToVBRasDialParams

Function BytesToVBRasDialParams(bytesIn() As Byte, _
udtVBRasDialParamsOUT As VBRasDialParams) As Boolean

Dim iPos As Long, lngLen As Long
Dim dwSize As Long
On Error GoTo badBytes

CopyMemory dwSize, bytesIn(0), 4

If dwSize = 816& Then
lngLen = 21&
ElseIf dwSize = 1060& Or dwSize = 1052& Then
lngLen = 257&
Else
'unkown size
Exit Function
End If
iPos = 4
With udtVBRasDialParamsOUT
CopyByteToTrimmedString .EntryName, bytesIn(iPos), lngLen
iPos = iPos + lngLen: lngLen = 129
CopyByteToTrimmedString .PhoneNumber, bytesIn(iPos), lngLen
iPos = iPos + lngLen: lngLen = 129
CopyByteToTrimmedString .CallbackNumber, bytesIn(iPos), lngLen
iPos = iPos + lngLen: lngLen = 257
CopyByteToTrimmedString .UserName, bytesIn(iPos), lngLen
iPos = iPos + lngLen: lngLen = 257
CopyByteToTrimmedString .Password, bytesIn(iPos), lngLen
iPos = iPos + lngLen: lngLen = 16
CopyByteToTrimmedString .Domain, bytesIn(iPos), lngLen

If dwSize > 1052& Then
CopyMemory .SubEntryIndex, bytesIn(1052), 4&
CopyMemory .RasDialFunc2CallbackId, bytesIn(1056), 4&
End If
End With
BytesToVBRasDialParams = True
Exit Function
badBytes:
'error handling goes here ??
BytesToVBRasDialParams = False
End Function


'VBRasDialParamsToBytes

Function VBRasDialParamsToBytes( _
udtVBRasDialParamsIN As VBRasDialParams, _
bytesOut() As Byte) As Boolean

Dim rtn As Long
Dim blnPsswrd As Long
Dim b() As Byte
Dim bLens As Variant
Dim dwSize As Long, i As Long
Dim iPos As Long, lngLen As Long

bLens = Array(1060&, 1052&, 816&)
For i = 0 To 2
dwSize = bLens(i)
ReDim b(dwSize - 1)
CopyMemory b(0), dwSize, 4
rtn = RasGetEntryDialParams(vbNullString, b(0), blnPsswrd)
If rtn = 623& Then Exit For
Next i

If rtn <> 623& Then Exit Function

On Error GoTo badBytes
ReDim bytesOut(dwSize - 1)
CopyMemory bytesOut(0), dwSize, 4

If dwSize = 816& Then
lngLen = 21&
ElseIf dwSize = 1060& Or dwSize = 1052& Then
lngLen = 257&
Else
'unkown size
Exit Function
End If
iPos = 4
With udtVBRasDialParamsIN
CopyStringToByte bytesOut(iPos), .EntryName, lngLen
iPos = iPos + lngLen: lngLen = 129
CopyStringToByte bytesOut(iPos), .PhoneNumber, lngLen
iPos = iPos + lngLen: lngLen = 129
CopyStringToByte bytesOut(iPos), .CallbackNumber, lngLen
iPos = iPos + lngLen: lngLen = 257
CopyStringToByte bytesOut(iPos), .UserName, lngLen
iPos = iPos + lngLen: lngLen = 257
CopyStringToByte bytesOut(iPos), .Password, lngLen
iPos = iPos + lngLen: lngLen = 16
CopyStringToByte bytesOut(iPos), .Domain, lngLen

If dwSize > 1052& Then
CopyMemory bytesOut(1052), .SubEntryIndex, 4&
CopyMemory bytesOut(1056), .RasDialFunc2CallbackId, 4&
End If
End With
VBRasDialParamsToBytes = True
Exit Function
badBytes:
'error handling goes here ??
VBRasDialParamsToBytes = False
End Function

Sub CopyByteToTrimmedString(strToCopyTo As String, _
bPos As Byte, lngMaxLen As Long)
Dim strTemp As String, lngLen As Long
strTemp = String(lngMaxLen + 1, 0)
CopyMemory ByVal strTemp, bPos, lngMaxLen
lngLen = InStr(strTemp, Chr$(0)) - 1
strToCopyTo = Left$(strTemp, lngLen)
End Sub

Sub CopyStringToByte(bPos As Byte, _
strToCopy As String, lngMaxLen As Long)
Dim lngLen As Long
lngLen = Len(strToCopy)
If lngLen = 0 Then
Exit Sub
ElseIf lngLen > lngMaxLen Then
lngLen = lngMaxLen
End If
CopyMemory bPos, ByVal strToCopy, lngLen
End Sub

این خیلی کامله کدهاش برایساخت برقراری ارتباط خروج از اینترنت و.... هست[/quote]

اگر می شد فایلش رو بزاری عالی می شد
البته خودم یک سورس پیدا کردم ماله گروه مارشال سافت است که می گه باید نسخه کامل رو بخری

عرض سلام

اقا منم دنبال یه همچین برنامه ای هستم و حدود 1 سال پیش هم تو همین فروم هم یه تاپیک زدم ولی به نتیجه ای نرسیدم !


ببینید منظور من از این دیالر اینه که :

یه کانکشن بسازم که طرف تا رو دکمه کانکت کلیل میکنه به اینترنت وصل بشه !!


خوب با این اوصاف که : من قبلا username- password - و شماره شبکه رو هم بهش دادم !


یعنی من همه کارها رو کردم


مثلا :

من یه اینترنت رایگان دارم از یه جایی ! میخوام طرف نفهمه که داره با چه یوزر و چه شبکه ای کانکت میشه !!!



امیدوارم که منظورمو کاملا گرفته باشید


پس منتظرم

البته اگه امکان داره سورس و برنامه رو یه جا بزارید

البته این این برنامه

http://www.parspooyesh.com/interface/dow...Dialer.exe

همون چیزی هست که من دلم میخواد همه چیزش کامل کامل هست ولی فقط سورسش در دسرس نیست که حداقل بتونم قسمت یوزر و پسورد و شماره شبکه رو مخفی کنم !

و یه چندتا بخش دیگه بهش اضافه کنم

دوست عزیز اگر به نتیجه رسیدی ما رو هم بی خبر نذار چون خیلی بهش نیاز دارم
پارس پویش سورس رو برای فورش نمی زاره و فقط می گه بگین چه طرحی می خواین پول بدین تا آماده کنیم
منم هم دارم می گردم پست شما رو هم فکر کنم دیدم تو همین انجمن

سلام

شما هم اگه به نتیجه رسیدید منم رو هم درجریان بزارید چون منم واقعا خیلی خیلی به این روش نیاز دارم و تنها چیزی هم که نیاز جفتمون رو برطرف میکنه همین سورس پارس پویش هست چون همونی هست که میخوایم !