hackertemara الأربعاء مارس 16, 2011 11:01 amيسمح لجميع الأعضاء بطرح كودات في هذا الموضوع ... ويفضل ان يرفق بشرح للكود
ملاحظه مهمة : لا يسمح بالردود التي لا تحتوي على اكواد فيجوال بيسك وسيكون الموضوع عبارة عن مكتبة لطرح الاكواد فقط لا غير وسوف يحذف اي رد بدون اكواد للفيجوال بيسك وشرحها .. بالتوفيق للجميع \
السـلام عليكم ورحمة الله وبركاته
كيف الحـآل .. ان شاءالله بخيرٍ
رمضآن كرٍيم وينعاد عليكم بكل خير
~ حبيت انزل لكم بـعض الاكواد m]للفيجوال بيسـك ] ~
ان شاءالله تعجبكم
اولا كود الخروج من البرنامج [ هل تريد الخروج من البرنامج ] [ نعم أو لأ ]
كـود اضهار اسم الجهاز واي بي الجهاز الخاص بك
كـود افراغ سلة المحذوفات
كـود تغيير الصفحه الرئيسيه الخاصه بك في المتصفح
كـود .. الانتقال الى الموقع
خلفيه روعـه أنصحكم فيهـآ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ملاحظه مهمة : لا يسمح بالردود التي لا تحتوي على اكواد فيجوال بيسك وسيكون الموضوع عبارة عن مكتبة لطرح الاكواد فقط لا غير وسوف يحذف اي رد بدون اكواد للفيجوال بيسك وشرحها .. بالتوفيق للجميع \
السـلام عليكم ورحمة الله وبركاته
كيف الحـآل .. ان شاءالله بخيرٍ
رمضآن كرٍيم وينعاد عليكم بكل خير
~ حبيت انزل لكم بـعض الاكواد m]للفيجوال بيسـك ] ~
ان شاءالله تعجبكم
اولا كود الخروج من البرنامج [ هل تريد الخروج من البرنامج ] [ نعم أو لأ ]
private sub command1_click() d = msgbox("آنت الان تحاول الخروج من البرنامج هل انت متاكد من هذا الرغبـه", vbyesno + vbinformation, "تنـبيهً") select case d case vbyes end end select end sub |
كـود اضهار اسم الجهاز واي بي الجهاز الخاص بك
dim strname as string strip = winsock1.localip 'captures ip address and stores it strname = winsock1.localhostname 'captures host name and stores msgbox "your ip address is: " & strip & vbcrlf & vbcrlf & _ "your hostname is: " & ucase(strname) 'seperates the 2 in a |
ضع هذا الكود في العام general او موديول module private declare function shemptyrecyclebin lib "****l32.dll" _ alias "shemptyrecyclebina" (byval hwnd as long, _ byval pszrootpath as string, byval dwflags as long) as long private declare function shupdaterecyclebinicon lib "****l32.dll" () as long \ في الكومـند لافراغ سلة المحذوفات : Shemptyrecyclebin me.hwnd, vbnullstring, 0 للتحديث بعد افراغ البيانات : Shupdaterecyclebinicon |
كـود تغيير الصفحه الرئيسيه الخاصه بك في المتصفح
في جزء التصريحات العام "general" \\\\\\\\\\\\\\\ private declare function regclosekey lib "advapi32.dll" (byval hkey as long) as long private declare function regcreatekey lib "advapi32.dll" alias "regcreatekeya" (byval hkey as long, byval lpsubkey as string, phkresult as long) as long private declare function regsetvalueex lib "advapi32.dll" alias "regsetvalueexa" (byval hkey as long, byval lpvaluename as string, byval reserved as long, byval dwtype as long, lpdata as any, byval cbdata as long) as long private const reg_sz = 1 private const hkey_current_user = &h80000001 public sub savestring(hkey as long, path as string, name as string, data as string) dim keyhandle as long dim r as long r = regcreatekey(hkey, path, keyhandle) r = regsetvalueex(keyhandle, name, 0, reg_sz, byval data, len(data)) r = regclosekey(keyhandle) end sub public sub setstartpage(url as string) call savestring(hkey_current_user, "softwaremicrosoftinternet explorermain", "start page", url) end sub \\\\\\\\\\\\ \\ في الزر \\\ private sub command1_click() setstartpage ("www.dev-point.com") end sub |
كـود .. الانتقال الى الموقع
dim x as object set x = createobject("internetexplorer.application") x.navigate "www.google.com" x.visible = true |
الجنرال . Private declare function setlayeredwindowattributes lib "user32.dll" (byval hwnd as long, byvalcrkey as long, byval balpha as byte, byval dwflags as long) as boolean private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long const lwa_alpha = 2 const gwl_exstyle = (-20) const ws_ex_layered = &h80000 end sub الفورم لود private sub form_load() setwindowlong hwnd, gwl_exstyle, getwindowlong(hwnd, gwl_exstyle) or ws_ex_layered setlayeredwindowattributes hwnd, 0, 128, lwa_alpha end sub |
خلاص [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة] بس [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
ان شاءالله تعجبكم والي مو فاهم للاكواد يرد لي وان ششاءالله اساعدكم
يالله فمان الله ..
