تبلیغات
داداش ویندوز کسب درآمد
دراینجا یک سری کد های vb.net رو برای شما می گذارم امیدوارم مورد استغادتون قرار بگیره


اطلاعات یک درایو
my.computer.filesystem.getdriveinfo("")
بازکردن یک فایل یا نرم افزار
Process.start("")
 کد کامل ایجاد فایل متنی و نوشتن در آن
   dim ress as string = Application.StartupPath + "\vb.txt"
        If Not My.Computer.FileSystem.FileExists(ress) Then
            System.IO.File.Create(ress).Close()
        End If
            Dim read As String
            Dim file_reader As New System.IO.StreamReader(ress)
            read = file_reader.ReadToEnd
            file_reader.Close()
            Dim file_writer As New System.IO.StreamWriter(ress)
            file_writer.Write(read)
            file_writer.WriteLine(txt.Text)
            file_writer.Close()
کار با فایل های xml
ابتدا در بالای تمام کد های صفحه می نویسید
imports system.xml
بعد sub زیر را ایجاد می کنید
(sub change(mem as string
Dim xmldoc as new xmldocument
("xmldoc.load("path   
dim name as string   
(dim id as xmlnodelist = xmldoc.GetElementsByTagName("id"+mem.tostring   
for each aa as xmlnode in id
name = aa.attributes("name").value   
next        
end sub
کد جلو گیری از اجرای دوباره ی برنامه
Dim p() as process  
(p=process.GetProcessByName(application.ProductName  
if p.count>1 Then    
end  
end if    
کد تغییر کرسر
(me.cursor = new cursor(Path
کد تغییر مکان موس
(cursor.position = new point(x,y
زندانی کردن موس در یک مربع
(cursor.clip = new rectangle(2,2,2,2
کد مخفی کردن کرسر
cursor.hide
کد نمایش مجدد کرسر
cursor.show
کد بدست آوردن طول و عرض دسکتاپ
my.computer.screen.Bounds. width or height
کد بدست آوردن موقعیت موس در صفحه
cursor.position
کد کلیک موس
در خارج از ساب ها این کد را بنویسید
public declare sub mouse lib "user32" alias "mouse_event" (byval dwFlags as long)
وسپس در یک رویداد این کد را بنویسید
برای کلیک چپ پایین
mouse(2)
برای کلیک چپ بالا
mouse(4)
برای کلیک راست پایین
mouse(8)
برای کلیک راست بالا
mouse(10)
برای کلیک میانی پایین
mouse(20)
برای کلیک میانی بالا
mouse(40)
برای تعویق چند میلی ثانیه ای در زبان c باید از کد 
sleep.ms()
استفاده می کردیم ولی این کد برای vb.net وجود ندارد برای همین از این ساب استفاده می کنیم
(sub sleep(ms as Integer
(system.threading.thread.sleep(ms
end sub
برای غیر فعال کردن موس و کیبورد
این کد را در بالای ساب ها بنویسید
public declare function BlockInput lib "user32" (byval fBlock as long)as long
در یک رویداد این کد را بنویسید
(blockinput(True
برای غیر فعال کردن بجای true بنویسید False
برای خواندن ورودی نرم افزار :مثلا وقتی یک فایل را باز می کنید آدرس فایل به ورودی نرم افزار فرساده می شود مثل فایل های متنی که برای نوت پد فرستاده می شوند
for each arg as string in my.application.commandlineargs
(msgbox(arg
next

برچسب ها : کد های vb.net , آموزش vb.net , آموزش مقدماتی vb.net , رذ.دثف , vb.net ,

نظرات () نویسنده: محمد جواد قدوسی یکشنبه 10 آبان 1394 - 02:32 ب.ظ

آخرین مطالب

 

نظرسنجی

آیا از فعالیت این وبلاگ راضی هستید



ADS

آمار بازید

کل بازدید ها :
بازدید امروز :
بازدید دیروز :
بازدید این ماه :
بازدید ماه قبل :
تعداد نویسندگان :
تعداد کل مطالب :
آخرین بروز رسانی :

درباره ما