• سورس Auto Address finder
    #1
    Note 
    سلام به همه دوستان Confusedmilingsmiley:
    این کد ادرس مسیر جاری رو پیدا میکنه (مسیری که کاربر توش هست)

    کد php:
    Option Explicit
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As StringByVal lpWindowName As String) As Long
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongByVal hWnd2 As LongByVal lpsz1 As StringByVal lpsz2 As String) As Long
    Private Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal Hwnd As LongByVal wMsg As LongByVal wParam As LongByVal lParam As String) As Long
    Const WM_GETTEXT = &HD
    Dim Address 
    As String

    Private Sub Form_Load()

    End Sub

    Private Sub Timer1_Timer()
        
    On Error Resume Next
        Dim Hwnd 
    As Long
        Dim i 
    As Integer
        Hwnd 
    FindWindow("CabinetWClass"vbNullString)
        If 
    Hwnd <> 0 Then
            Hwnd 
    FindWindowEx(Hwnd0"WorkerW"vbNullString)
            
    Hwnd FindWindowEx(Hwnd0"ReBarWindow32"vbNullString)
            
    Hwnd FindWindowEx(Hwnd0"ComboBoxEx32"vbNullString)
            
    Dim r As Long
            Dim s 
    As String
            s 
    String(201Chr(0))
            
    SendMessageByString(HwndWM_GETTEXT200s)
            If 
    Left(sr) = "My Computer" Then Exit Sub
            Address 
    Left(sr)
        
    End If
        
    Text1.Text Address
    End Sub 

    امیدوارم مفید باشه :blushsmiley:

    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note سوال سورس حذف ایمیل و نمایش آی پی و مک آدرس کامپیوتر moeinmq 1 1,392 24-01-2015 ساعت 18:30
    آخرین ارسال: xMAN
    Note سوال سورس برنامه افزایش ولتاژ قطعات موردنظر moeinmq 0 1,092 25-11-2014 ساعت 18:30
    آخرین ارسال: moeinmq
    Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 1,192 14-08-2014 ساعت 20:23
    آخرین ارسال: vc3000
    Note سورس مقاسیه عدد Daniel 0 465 18-04-2014 ساعت 18:21
    آخرین ارسال: Daniel
    Note آدرس یاب رایگان + سورس amirali 7 2,151 10-04-2014 ساعت 08:45
    آخرین ارسال: AppDev
    Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 678 03-12-2013 ساعت 22:18
    آخرین ارسال: VBProgrammer
    Note سورس کدهای ویژوال بیسیک 6 Daniel 136 30,601 18-11-2013 ساعت 10:38
    آخرین ارسال: Daniel
    Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 1,256 23-09-2013 ساعت 09:36
    آخرین ارسال: C0der
    Note سورس دفترچه تلفن به زبان ویژوال بیسیک Daniel 4 3,219 14-01-2013 ساعت 14:12
    آخرین ارسال: Stack OverFlow
    Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 1,003 19-09-2012 ساعت 17:55
    آخرین ارسال: Daniel

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان