HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуВкл./Откл. Сетевой карты. ← Ctrl12Ctrl →
Этот топик читают: Гость
Ответов: 40
Рейтинг: -2
#16: 2013-06-21 17:14:41 ЛС | профиль | цитата
[flood]
Tad писал(а):
edd, лови в файлообменнике.
большое спасибо![/flood]
карма: 1

0
Ответов: 9906
Рейтинг: 351
#17: 2013-06-21 17:41:21 ЛС | профиль | цитата
Tad, никак не уловлю смысла твоей оживленной беседы с edd.
Каким таким макаром "переживания" про SysUtils перетекли в плохо функционирующий вариант kol-а - никак не въеду
------------ Дoбавленo в 17.41:
открой мне глаза, пожалуйста.
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#18: 2013-06-21 17:51:09 ЛС | профиль | цитата
Просто лень объяснять, как устроена командная строка компилятора, а в HiAsm есть готовая для Delphi 7.
Если человек с головой, то подключит правленный kol. Если нет, то "На нет и суда нет".
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 9906
Рейтинг: 351
#19: 2013-06-21 18:31:35 ЛС | профиль | цитата
Сурово, вообще-то
карма: 9

0
Ответов: 16884
Рейтинг: 1239
#20: 2013-06-21 22:05:46 ЛС | профиль | цитата
[flood]Ничего сурового - просто проверка шариков на вращение.
Кстати, о птичках. Там, куда я отправил edd, есть комстрока подключения дельфи-библиотеки. Человек не прочёл. Прискорбно.
В паралельной теме, про подключение ProgressBar-а, я специально поставил DoData вместо Math - просто обозначил точки. Кое-кто был удивлен.
Человек понял - значит при последующих вопросах помощь получит. ИМХО.[/flood]
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 40
Рейтинг: 0
#21: 2013-06-23 21:17:35 ЛС | профиль | цитата
hitman249 писал(а):
докатились...
SetConnState "Подключение по локальной сети", True
SetConnState "Подключение по локальной сети", False

#bas
' strConn : имя сетевого подключения
' bState : vbTrue - включить, vbFalse - отключить

Function SetConnState (strConn, bState)
  Dim objShell,objCP
  Dim colNetwork,clsConn,clsLANConn,clsVerb
  Dim strNetConn,strEnable,strDisable
  SetConnState=vbFalse

  strNetConn = "Сетевые подключения"
' strNetConn = "Network Connections"

  strEnable = "&Включить"
' strEnable = "En&able"

  strDisable = "&Отключить"
' strDisable = "Disa&ble"
' -----------------------------
  Set objShell = CreateObject("Shell.Application")
  Set objCP = objShell.Namespace(3)

  Set colNetwork = Nothing
  For Each clsConn in objCP.Items
    If clsConn.Name = strNetConn Then
      Set colNetwork = clsConn.getfolder
      Exit For
    End If
  Next

  If colNetwork Is Nothing Then
    WScript.Echo "Network folder not found"
    Exit Function
  End If

  Set clsLANConn = Nothing
  For Each clsConn in colNetwork.Items
    If LCase(clsConn.name) = LCase(strConn) Then
      Set clsLANConn = clsConn
      Exit For
    End If
  Next

  If clsLANConn is Nothing Then
    WScript.Echo "Network Connection not found"
    Exit Function
  End If

  For Each clsVerb in clsLANConn.verbs
    If (bState=vbFalse AND clsVerb.name=strDisable) OR (bState=vbTrue AND clsVerb.name=strEnable) Then 
      clsVerb.DoIt
      WScript.Sleep 1000
      SetConnState=vbTrue
    End If
  Next
End Function
А это как то можно в Hiasm добавить? ( две кнопки Вкл. и Выкл. )
Заранее благодарен.
------------ Дoбавленo в 21.17:
up1891 писал(а):
А это как то можно в Hiasm добавить? ( две кнопки Вкл. и Выкл. )
Заранее благодарен.


Что то никто не отвечает. Я поковырялся и вот что у меня получилось:
Add(MainForm,2953706,189,91)
{
 Width=120
 Height=125
 Caption="LAN"
}
Add(Button,15739530,154,175)
{
 Left=20
 Top=65
 Caption="OFF LAN"
 link(onClick,6764844:doEvent1,[])
}
Add(MultiElement,9490966,364,273)
{
 @Hint=#3:0;0|
}
BEGIN_SDK
  Add(EditMulti,3059450,28,7)
  {
   WorkCount=1
   Width=797
   Height=536
   link(doWork1,3156931:doEnum,[(46,13)(46,69)])
  }
  Add(WinEnum,3156931,56,63)
  {
   link(onFindWindow,1544057:doEvent1,[])
  }
  Add(Hub,1544057,119,63)
  {
   link(onEvent1,1040632:doValue,[(146,69)(146,20)])
   link(onEvent2,9203818:doCompare,[(189,76)(189,188)])
  }
  Add(Memory,1040632,245,14)
  {
  }
  Add(WinTools,114672,434,175)
  {
   link(Handle,3932274:Var2,[])
  }
  Add(Hub,8541811,329,182)
  {
   OutCount=4
   link(onEvent1,16329424:doValue,[(352,188)(352,41)])
   link(onEvent2,663614:doWork2,[])
   link(onEvent3,6760104:doWork1,[(370,202)(370,223)])
   link(onEvent4,14957937:doEnum,[(359,209)(359,342)])
  }
  Add(KeyEvent,12499589,644,350)
  {
   link(Handle,4314516:Var2,[])
   link(Code,15418870:Value,[])
  }
  Add(GetDataEx,3932274,434,102)
  {
   Angle=3
   link(Data,16329424:Value,[(377,107)])
  }
  Add(Memory,15418870,651,259)
  {
   Default=Integer(13)
  }
  Add(StrList,3782911,469,273)
  {
   Strings=#2:78|2:69|2:84|2:83|2:72|2:32|2:73|2:78|2:84|2:69|2:82|2:70|2:65|2:67|2:69|2:32|2:83|2:69|2:84|2:32|2:73|2:78|2:84|2:69|2:82|2:70|2:65|2:67|2:69|2:32|2:78|2:65|2:77|2:69|3:187|2:76|2:65|2:78|2:32|2:65|2:68|2:77|2:73|2:78|3:187|2:69|2:78|2:65|2:66|2:76|2:69|2:68|2:13|
  }
  Add(ArrayEnum,14957937,483,336)
  {
   link(onItem,12271103:doEvent1,[])
   link(onEndEnum,13692114:doTimer,[(548,349)(548,405)])
   link(Array,3782911:Array,[])
  }
  Add(Hub,12271103,560,336)
  {
   OutCount=3
   link(onEvent1,15418870:doValue,[(588,342)(588,265)])
   link(onEvent2,15683726:In,[])
   link(onEvent3,12499589:doPress,[])
  }
  Add(MultiElement,6760104,469,217)
  {
   link(Data1,13230547:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,549735,21,21)
    {
     WorkCount=1
     DataCount=1
     Width=531
     Height=389
     link(doWork1,6994619:doEvent1,[(115,27)(115,111)])
    }
    Add(KeyEvent,6068002,322,98)
    {
     link(Handle,6347203:Var2,[])
     link(Code,6087036:Value,[])
    }
    Add(Hub,6994619,126,105)
    {
     OutCount=4
     link(onEvent1,6068002:doPressDown,[])
     link(onEvent2,12974871:doPressDown,[(280,118)(280,153)])
     link(onEvent3,6068002:doPressUp,[(299,125)(299,118)])
     link(onEvent4,12974871:doPressUp,[(272,132)(272,160)])
    }
    Add(Memory,6087036,329,35)
    {
     Default=Integer(18)
    }
    Add(KeyEvent,12974871,434,140)
    {
     link(Handle,6347203:Var3,[(440,74)])
     link(Code,2392640:Value,[])
    }
    Add(Memory,2392640,441,77)
    {
     Default=Integer(16)
    }
    Add(GetDataEx,6347203,322,69)
    {
     Angle=3
     link(Data,549735:Data1,[(27,74)])
    }
  END_SDK
  Add(GetDataEx,13230547,469,102)
  {
   Angle=3
   link(Data,3932274:Var3,[])
  }
  Add(Timer,13692114,581,399)
  {
   Enable=1
   AutoStop=3
   Point(onStop)
   link(onStop,4709070:doSendMessage,[])
  }
  Add(SendMessage,4709070,686,406)
  {
   Message=7
   link(Handle,4314516:Var3,[(692,107)])
  }
  Add(GetDataEx,4314516,644,102)
  {
   Angle=3
   link(Data,13230547:Var3,[])
  }
  Add(Memory,16329424,371,35)
  {
   Point(Data)
   link(Data,3156931:Handle,[(377,23)(307,23)(307,112)(62,112)])
  }
  Add(If_else,9203818,245,182)
  {
   Op2=String(Администратор: C:\Windows\System32\cmd.exe)
   link(onTrue,8541811:doEvent1,[])
   link(Op1,1040632:Value,[])
  }
  Add(HubEx,663614,406,189)
  {
   link(onEvent,114672:doActive,[])
  }
  Add(LineBreak,13692265,371,154)
  {
   link(Out,663614:doWork3,[(410,160)])
   Primary=[15683726,224,189]
  }
END_SDK
Add(Button,11253434,154,259)
{
 Left=20
 Top=15
 Caption="ON LAN"
 link(onClick,15952808:doEvent1,[])
}
Add(MultiElement,10012692,364,189)
{
 @Hint=#3:0;0|
}
BEGIN_SDK
  Add(EditMulti,14418108,28,7)
  {
   WorkCount=1
   Width=797
   Height=536
   link(doWork1,2761276:doEnum,[(46,13)(46,69)])
  }
  Add(WinEnum,2761276,56,63)
  {
   link(onFindWindow,3026361:doEvent1,[])
  }
  Add(Hub,3026361,119,63)
  {
   link(onEvent1,461470:doValue,[(146,69)(146,20)])
   link(onEvent2,9806630:doCompare,[(207,76)(207,188)])
  }
  Add(Memory,461470,245,14)
  {
  }
  Add(If_else,9806630,245,182)
  {
   Op2=String(Администратор: C:\Windows\System32\cmd.exe)
   link(onTrue,14918433:doEvent1,[])
   link(Op1,461470:Value,[])
  }
  Add(WinTools,11865533,455,175)
  {
   link(Handle,10010066:Var2,[])
  }
  Add(Hub,14918433,329,182)
  {
   OutCount=4
   link(onEvent1,3742727:doValue,[(352,188)(352,41)])
   link(onEvent2,14427366:doWork2,[])
   link(onEvent3,3871727:doWork1,[(392,202)(392,223)])
   link(onEvent4,14580733:doEnum,[(359,209)(359,342)])
  }
  Add(KeyEvent,8380507,644,350)
  {
   link(Handle,1216327:Var2,[])
   link(Code,4635081:Value,[])
  }
  Add(GetDataEx,10010066,455,102)
  {
   Angle=3
   link(Data,3742727:Value,[(377,107)])
  }
  Add(Memory,4635081,651,259)
  {
   Default=Integer(13)
  }
  Add(ArrayEnum,14580733,483,336)
  {
   link(onItem,10284010:doEvent1,[])
   link(onEndEnum,10382919:doTimer,[(548,349)(548,405)])
   link(Array,2971184:Array,[])
  }
  Add(Hub,10284010,560,336)
  {
   OutCount=3
   link(onEvent1,4635081:doValue,[(588,342)(588,265)])
   link(onEvent2,1812492:In,[])
   link(onEvent3,8380507:doPress,[])
  }
  Add(MultiElement,3871727,490,217)
  {
   link(Data1,1399338:Var2,[])
  }
  BEGIN_SDK
    Add(EditMulti,10822140,21,21)
    {
     WorkCount=1
     DataCount=1
     Width=531
     Height=389
     link(doWork1,2517832:doEvent1,[(115,27)(115,111)])
    }
    Add(KeyEvent,15984344,322,98)
    {
     link(Handle,8430386:Var2,[])
     link(Code,5303850:Value,[])
    }
    Add(Hub,2517832,126,105)
    {
     OutCount=4
     link(onEvent1,15984344:doPressDown,[])
     link(onEvent2,12053526:doPressDown,[(280,118)(280,153)])
     link(onEvent3,15984344:doPressUp,[(299,125)(299,118)])
     link(onEvent4,12053526:doPressUp,[(272,132)(272,160)])
    }
    Add(Memory,5303850,329,35)
    {
     Default=Integer(18)
    }
    Add(KeyEvent,12053526,434,140)
    {
     link(Handle,8430386:Var3,[(440,74)])
     link(Code,3612490:Value,[])
    }
    Add(Memory,3612490,441,77)
    {
     Default=Integer(16)
    }
    Add(GetDataEx,8430386,322,69)
    {
     Angle=3
     link(Data,10822140:Data1,[(27,74)])
    }
  END_SDK
  Add(GetDataEx,1399338,490,102)
  {
   Angle=3
   link(Data,10010066:Var3,[])
  }
  Add(Timer,10382919,581,399)
  {
   Enable=1
   AutoStop=3
   Point(onStop)
   link(onStop,3828011:doSendMessage,[])
  }
  Add(SendMessage,3828011,686,406)
  {
   Message=7
   link(Handle,1216327:Var3,[(692,107)])
  }
  Add(GetDataEx,1216327,644,102)
  {
   Angle=3
   link(Data,1399338:Var3,[])
  }
  Add(Memory,3742727,371,35)
  {
   Point(Data)
   link(Data,2761276:Handle,[(377,23)(307,23)(307,112)(62,112)])
  }
  Add(StrList,2971184,469,273)
  {
   Strings=#2:78|2:69|2:84|2:83|2:72|2:32|2:73|2:78|2:84|2:69|2:82|2:70|2:65|2:67|2:69|2:32|2:83|2:69|2:84|2:32|2:73|2:78|2:84|2:69|2:82|2:70|2:65|2:67|2:69|2:32|2:78|2:65|2:77|2:69|3:187|2:76|2:65|2:78|2:32|2:65|2:68|2:77|2:73|2:78|3:187|2:68|2:73|2:83|2:65|2:66|2:76|2:69|2:68|2:13|
  }
  Add(HubEx,14427366,427,189)
  {
   link(onEvent,11865533:doActive,[])
  }
  Add(LineBreak,16539377,385,161)
  {
   link(Out,14427366:doWork3,[(431,167)])
   Primary=[1812492,217,182]
  }
END_SDK
Add(WinExec,4096782,308,224)
{
 Param="admin"
 FileName="C:\Windows\System32\cmd.exe"
}
Add(Hub,6764844,224,175)
{
 link(onEvent1,190409:doWork2,[(264,181)(264,230)])
 link(onEvent2,6660853:doTimer,[])
}
Add(Hub,15952808,217,259)
{
 link(onEvent1,190409:doWork3,[(263,265)])
 link(onEvent2,5890914:doTimer,[])
}
Add(HubEx,190409,259,224)
{
 link(onEvent,4096782:doExec,[])
}
Add(Timer,6660853,308,182)
{
 Enable=1
 AutoStop=2
 Point(onStop)
 link(onStop,10012692:doWork1,[])
}
Add(Timer,5890914,308,266)
{
 Enable=1
 AutoStop=2
 Point(onStop)
 link(onStop,9490966:doWork1,[])
}



Моя программа запускает CMD и вводит команду: netsh interface set interface name="lan" admin=disabled ( отключение ) или: netsh interface set interface name="lan" admin=enabled ( включение ), а затем закрывает CMD.
Но мне кажется, что я перемудрил. Может как то можно упростить ( без CMD )?
карма: 1

0
файлы: 1code_31321.txt [1.4KB] [123]
Ответов: 196
Рейтинг: 43
#22: 2013-06-24 06:42:19 ЛС | профиль | цитата
up1891 писал(а):
Может как то можно упростить ( без CMD )?

Ну так-то это проще делается....
если с CMD то вот так не проще будет?
Add(MainForm,10186242,70,49)
{
 Width=312
 Height=184
 Caption="Отключение сетевухи"
}
Add(Button,3656948,70,119)
{
 Left=90
 Top=50
 Width=115
 Font=[MS Sans Serif,12,1,0,1]
 Caption="Отключить"
 link(onClick,13385887:doEvent1,[])
}
Add(WinExec,95741,245,105)
{
 FileName="cmd.exe"
 RunEvent=1
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
}
Add(Hub,13385887,140,119)
{
 link(onEvent1,95741:doConsoleExec,[])
 link(onEvent2,2643823:doData,[])
}
Add(DoData,2643823,182,126)
{
 Data=String(netsh interface set interface name="lan" admin=disabled 
)
 link(onEventData,95741:doConsoleInput,[])
}
карма: 2

0
22
ФорумыПомощь по пакетуВкл./Откл. Сетевой карты. ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика