مشكلة - كود يعمل مع ويندوز 98 ولا يعمل مع الاكس بي

لأ أنصحك أطلاقا بأستعمال الـ Scripting لكثرة مشاكله , أستعمل الـ APIs

أعمل بحث عن OSfCreateShellLink

عند محاولة عمل اسكربت اول برنامج مضاد فيروسات سيحاول ايقاف برنامجك

الأخ الفاضل ...

أضف السطر التالى لنهاية الكود:

oShellLink.Save

قم بتعديل السطر الثانى من

Set oShellLink = WshShell.CreateShortcut(c:\)

إلى

Set oShellLink = WshShell.CreateShortcut("c:\")

أى يصبح بالشكل:

Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut("c:\") 
oShellLink.TargetPath = "c:\prog\dd.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.Save

شكراً

اقتباس

عند محاولة عمل اسكربت اول برنامج مضاد فيروسات سيحاول ايقاف برنامجك

صحيح

اشكركم علي الردود ولكن المشكلة لازلت موجودة المشكلة ان الكود يعمل علي ويندوز 98 بينما لا يعمل مع ويندوز اكس بي

كما انني حاولت استخدم ال api

ولكن هذه المكتبة ليست موجودةعندي "vb6stkit.dll" وهي من دوال api فارجو ان كانت موجودة لدي احد ان يرفقها لي

وجزاه الله كل خير او اي احد يعدلي الكود الاول بحيث يعمل مع الاكس بي

صعب قوى ما يكونش عندك , يمكن محتاج أعادة تسجيل :

Start menu - > Run

أكتب :

regsvr32 VB6STKIT.DLL

و أضغط Enter

و حاول تانى مع الـ API

و لو منفعش نزله من هنا : http://www.dlldll.com/vb6stkit.dll_download.html

احسن حاجة عجبانى فيك يا محمد حبك لل API

أخي msayed2004

ارجو منك شرح طريقة استخدام المكتبة لاني وجدتها ولكن لا استطيع استخدمها فهي تعطي خطأ معي فأرجو

منك شرح طريقة دالة api المستخدمه لعمل شورت كت

الكود موجود فى مرفقى بهذه المشاركة : /index.ph...st&p=601669

فى عيب واحد للطريقة دى ( قد يكون ليه حل لا أعلمه ) و هو عدم أمكانية تحديد Hot-key أو ما يسمى بالـ Shortcut key

السلام عليكم

في موديول

Option Explicit
'vb6stkit.dll
Public Declare Function fCreateShellLink Lib "vb6stkit.dll" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, ByVal fPrivate As Long, ByVal sParent As String) As Long

في الفورم

Dim strGroupName As String, strLinkName As String
Dim strLinkPath As String, strLinkArguments As String
Dim fPrivate As Boolean, sParent As String
Dim fSuccess As Boolean

Private Sub LinkPrograms_Click()
	' وضع الاختصار في قائمة البرامج
	strLinkName = "yasserstars"
	strLinkPath = "C:\WINDOWS\NOTEPAD.EXE"
	strLinkArguments = ""
	fPrivate = True
	strGroupName = "$(Programs)"
	sParent = "$(Programs)"
	'
	fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & vbNullChar, fPrivate, sParent)

End Sub