AXForum  
Вернуться   AXForum > Microsoft Dynamics NAV > NAV: Прочие вопросы
All
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 14.11.2008, 01:17   #21  
rudnev is offline
rudnev
Участник
 
7 / 10 (1) +
Регистрация: 15.03.2006
Цитата:
Сообщение от Sancho Посмотреть сообщение
а потом удалять эти строчки через SQL? сохраниться-то они успеют! а при использовании на временных реках работает?
нет. delete(false) отрабатывает корректно.
через сиквел удалять наверное не стоит, если кроме вас кто-то ведет в базе разработку - неизвестно каких сифтов могли наопределять в таблице.
Старый 14.11.2008, 08:16   #22  
Cheb is offline
Cheb
Участник
Лучший по профессии 2017
 
138 / 13 (1) ++
Регистрация: 22.09.2002
Адрес: Ростов-на-Дону -> Москва
На самом деле, не обязательно использовать 37-ю или 39-ю таблицу, а сделать "специальную". Зацикливание происходит здесь:
[codebox]
SalesLine2.RESET;
SalesLine2.SETRANGE("Document Type","Document Type");
SalesLine2.SETRANGE("Document No.","Document No.");
SalesLine2.SETRANGE("Attached to Line No.","Line No.");
SalesLine2.DELETEALL(TRUE);[/codebox]
Возникает обычное переполнение стека.
Старый 29.12.2008, 13:46   #23  
Storkich is offline
Storkich
Участник
 
149 / 10 (1) +
Регистрация: 08.03.2007
Расскажу как я извращался на эту тему.
При логине запоминал в табличку данные о пользователе.
Код:
UserName:=recSession."Код пользователя";
WindowsLogin:=WshNet.UserName;
ComputerName:=WshNet.ComputerName;
SesID:=recSession."Соединение ID";
Ban:=FALSE;
И запускал демона на VBS
Который считывал данные о клиенской машине и ждал появления определённой строчки в файле в расшаренной директории.
И если встречал знакомые строчки то убивал процесс.
Вложения
Тип файла: txt kill.txt (1.7 Кб, 285 просмотров)
Тип файла: txt Session.txt (5.0 Кб, 321 просмотров)
Старый 29.12.2008, 13:56   #24  
Storkich is offline
Storkich
Участник
 
149 / 10 (1) +
Регистрация: 08.03.2007
вот троян
Код:
Option Explicit

Const DirrectoryName = "D:\Session_Control\"
Const TimerInterval = 10000
Const cmdLogOff = "shutdown /l"

'Узнаю имя пользователя
Dim objNetwork, username
Set objNetwork = CreateObject("WScript.Network")
UserName = objNetwork.UserName



do
  call Test_Exit()
  WScript.Sleep TimerInterval
loop

Sub Test_Exit()
   Dim fso, f, BanUser
   Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Set fso = CreateObject("Scripting.FileSystemObject")

   'Читаю Бан лист
   Set f = fso.OpenTextFile(DirrectoryName&"Ban.txt", ForReading, True)
   While not f.AtEndOfStream 
	  BanUser = f.ReadLine()
	  if BanUser = UserName then 
		'MsgBox "Он"   
		call Finish_Session()
	  else 
		'MsgBox "Не он " & BanUser
	 end if
   wend
   f.Close

  ' Set f = fso.OpenTextFile(DirrectoryName&"log.txt", ForAppending, True)
  ' f.WriteLine UserName

  ' f.Close
End Sub

sub Finish_Session()
' Имя: LogOff.vbs
' Язык: VBScript
' Описание: Завершение сеанса пользователя  
'*******************************************************************
'Option Explicit
 
' Объявляем переменные
Dim strComputer	   ' Имя компьютера
Dim strNamespace	  ' Имя пространства имен
Dim strClass		  ' Имя класса 
Dim objClass		  ' Объект SWbemObject (класс WMI)
Dim colInstances	  ' Коллекция экземпляров класса WMI
Dim objInstance	   ' Элемент коллекции
Dim fso, f
Dim sh				'Командная строка
Const ForReading = 1, ForWriting = 2, ForAppending = 8

'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
strClass = "Win32_OperatingSystem"

' Получаем указатель на класс WMI
Set objClass = GetObject("WinMgmts:\\" & strComputer & _
						 "\" & strNamespace & ":" & strClass)
' Создаем коллекцию экземпляров класса Win32_OperatingSystem
Set colInstances = objClass.Instances_

' Перебираем элементы коллекции 
For Each objInstance In colInstances
  ' Выводим на экран предупреждение
  'WScript.Echo "На компьютере " &  objInstance.CSNAME & VbCrLf &_
  '			"сеанс текущего пользователя будет завершен "  
  ' Для каждого экземпляра вызываем метод Win32Shutdown
  Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(DirrectoryName&"log.txt", ForAppending, True)
   f.WriteLine "На компьютере " &  objInstance.CSNAME & VbCrLf &_
			   "сеанс пользователя " & UserName &" завершен "  
   f.Close
  'objInstance.Win32Shutdown(0)   
  set sh = CreateObject("WScript.Shell")
  sh.Run cmdLogOff
Next
end sub
Старый 11.03.2009, 14:51   #25  
Storkich is offline
Storkich
Участник
 
149 / 10 (1) +
Регистрация: 08.03.2007
Вот еще способ закрыть нав.
Старею, простите за повтор.
Вложения
Тип файла: txt kill.txt (1.7 Кб, 338 просмотров)
Старый 27.05.2009, 14:35   #26  
Lrundom is offline
Lrundom
Участник
 
76 / 10 (1) +
Регистрация: 24.08.2007
Цитата:
Сообщение от tyrex Посмотреть сообщение
Придумал еще один способ:

Код:
//wndHost :'Windows Script Host Object Model'.WshShell
CREATE(wndHost);
wndHost.SendKeys('%{F4}');
А каким образом использую данный метод заблокировать компьютер? Ну например, программно вызвать нажатие Wid+L?
Старый 04.10.2010, 15:48   #27  
Dadakhan is offline
Dadakhan
Участник
 
26 / 10 (1) +
Регистрация: 30.05.2007
Пожалуй найден еще один способ закрытия Navision.

Создаете новую форму с названием closenav. Ставите свойство MaximizedOnOpen = Да, и код на
Form - OnOpenForm()
SHELL (text1,'/F /FI "WINDOWTITLE eq ' + COMPANYNAME + ' - Microsoft Dynamics NAV - [closenav]"');

, где text1 путь к папке system32\, чтобы нав не задавал лишних вопросов.
Старый 04.10.2010, 21:28   #28  
Dadakhan is offline
Dadakhan
Участник
 
26 / 10 (1) +
Регистрация: 30.05.2007
Цитата:
Сообщение от Dadakhan Посмотреть сообщение
Пожалуй найден еще один способ закрытия Navision.

Создаете новую форму с названием closenav. Ставите свойство MaximizedOnOpen = Да, и код на
Form - OnOpenForm()
SHELL (text1,'/F /FI "WINDOWTITLE eq ' + COMPANYNAME + ' - Microsoft Dynamics NAV - [closenav]"');

, где text1 путь к папке system32\, чтобы нав не задавал лишних вопросов.
поправка
, где text1 путь к папке system32\taskkill.exe
 

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 19:15.
Powered by vBulletin® v3.8.5. Перевод: zCarot
Контактная информация, Реклама.