سورس 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 830 24-01-2015 ساعت 18:30
آخرین ارسال: xMAN
Note سوال سورس برنامه افزایش ولتاژ قطعات موردنظر moeinmq 0 702 25-11-2014 ساعت 18:30
آخرین ارسال: moeinmq
Note سورس قطع کردن اتصال به اینترنت با رفرش کردن moeinmq 3 963 14-08-2014 ساعت 20:23
آخرین ارسال: vc3000
Note سورس مقاسیه عدد Daniel 0 355 18-04-2014 ساعت 18:21
آخرین ارسال: Daniel
Note آدرس یاب رایگان + سورس amirali 7 1,750 10-04-2014 ساعت 08:45
آخرین ارسال: AppDev
Note سورس وصل شدن به اینترنت بصورت مخفی moeinmq 1 548 03-12-2013 ساعت 22:18
آخرین ارسال: VBProgrammer
Note سورس کدهای ویژوال بیسیک 6 Daniel 136 20,358 18-11-2013 ساعت 10:38
آخرین ارسال: Daniel
Note سوال: نمایش ایمیل دریافت شده در VB6 moeinmq 4 984 23-09-2013 ساعت 09:36
آخرین ارسال: C0der
Note سورس دفترچه تلفن به زبان ویژوال بیسیک Daniel 4 2,720 14-01-2013 ساعت 14:12
آخرین ارسال: Stack OverFlow
Note سورس برنامه کار با رجیستری به زبان وبژوال بیسیک Daniel 0 886 19-09-2012 ساعت 17:55
آخرین ارسال: Daniel

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