HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуМодель HDD ← Ctrl123Ctrl →
Этот топик читают: Гость
Ответов: 355
Рейтинг: 2
#1: 2012-02-15 22:35:23 ЛС | профиль | цитата
Как определить с помощью HiAsm модель HDD?
карма: 1

0
Ответов: 3889
Рейтинг: 362
#2: 2012-02-15 23:26:47 ЛС | профиль | цитата 


Add(MainForm,14627803,245,133)
{
 Width=767
 Height=170
 Caption="Вскройте корпус Вашего ПК, посмотрите наклейку на HDD, введите похожее на модель в поле и нажмите Enter"
}
Add(Label,14603383,203,175)
{
 Width=225
 Height=143
 Align=1
 Caption="Я - программа по определению модели HDD,
К сожалению, уровень технологий в нашем
селе настолько низок, что мой автор
вынужден попросить Вас самостоятельно
разобрать системный блок, посмотреть
на наклейку, ввести её содержимое в 
поле ввода справа и нажать Enter, Спасибо! "
}
Add(Edit,12749735,245,175)
{
 Left=229
 Width=530
 Height=143
 Align=3
 Font=[MS Sans Serif,24,0,0,1]
 Text=""
 link(onEnter,11275607:doMessage,[(282,188)(282,181)])
}
Add(Message,11275607,287,175)
{
 Caption="Модель Вашего HDD похожа на"
}
карма: 1

0
Ответов: 355
Рейтинг: 2
#3: 2012-02-15 23:30:37 ЛС | профиль | цитата
1nd1g0, издеваетесь?
карма: 1

0
Ответов: 3889
Рейтинг: 362
#4: 2012-02-15 23:38:46 ЛС | профиль | цитата
nickware, нет, просто не люблю отвечать на одни и те же вопросы в течении месяца, я для лентяев даже статью в Wiki написал: System:ExtendedDisksInfo
карма: 1

0
Ответов: 355
Рейтинг: 2
#5: 2012-02-16 01:29:59 ЛС | профиль | цитата
Ну вот, спасибо. А где можно ещё подобные статьи посмотреть? Например, про определение других устройств?
карма: 1

0
Ответов: 845
Рейтинг: 19
#6: 2012-02-16 06:16:06 ЛС | профиль | цитата
во вкладке система
карма: 0

0
Ответов: 355
Рейтинг: 2
#7: 2012-02-16 11:57:02 ЛС | профиль | цитата
GAv, я говорю про статьи. И мне нужны команды WMI для получения информации в HiAsm. Есть справочники?
карма: 1

0
Ответов: 3889
Рейтинг: 362
#8: 2012-02-16 12:52:22 ЛС | профиль | цитата
Единственный действительно полный "справочник" - английский MSDN http://msdn.microsoft.com/en-us/library/windows/desktop/aa394572(v=VS.85).aspx
Если "слишком круто" - начинать с русского подобия
карма: 1

0
Ответов: 355
Рейтинг: 2
#9: 2012-02-16 19:54:47 ЛС | профиль | цитата
1nd1g0, благодарю.
карма: 1

0
Ответов: 216
Рейтинг: -4
#10: 2012-02-17 10:10:26 ЛС | профиль | цитата
[b]1nd1g0[/b], ты почему не отвечаешь, обиделся что-ли. Вот что у меня получилось 
 Add(MainForm,2953706,7,14){
 Width=622
 Height=274
 link(onCreate,10825987:doEvent1,[])
}
Add(Hub,11629614,147,35)
{
 OutCount=3
 link(onEvent1,2568328:doSplit,[])
 link(onEvent2,16462877:doEvent1,[(175,48)(175,146)])
 link(onEvent3,4052012:doTimer,[(171,55)(171,286)])
}
Add(Memo,3086552,665,287)
{
 Left=5
 Top=5
 Width=600
 Height=195
 ScrollBars=3
}
Add(MultiElementEx,2568328,224,35)
{
 link(onFString,10784747:doString,[(261,48)(261,83)(205,83)(205,111)])
}
BEGIN_SDK
  Add(EditMultiEx,2743408,21,14)
  {
   WorkCount=#7:doSplit|0:|
   EventCount=#7:onValue|9:onFString|
   VarCount=#5:Part1|5:Part2|5:Part3|
   Width=657
   Height=473
   link(doSplit,4798378:doEnum,[(31,20)(31,83)])
   link(Part1,7036414:Part1,[(27,454)(531,454)])
   link(Part2,7036414:Part2,[(34,466)(538,466)])
   link(Part3,13496462:Result,[(41,475)(636,475)])
  }
  Add(Delete,10594107,581,189)
  {
   Count=9
   Direction=1
   link(onDelete,13496462:doStrCat,[])
   link(Str,7036414:Part3,[(587,177)(566,177)(566,233)(545,233)])
  }
  Add(StrCat,13496462,630,189)
  {
   Str2=".GB"
   link(onStrCat,2743408:onFString,[(670,195)(670,27)])
  }
  Add(MultiStrPart,7036414,525,189)
  {
   Char="*"
   Count=3
   link(onSplit,10594107:doDelete,[])
  }
  Add(VBJScript,4798378,42,77)
  {
   WorkPoints=#6:doEnum|
   EventPoints=#6:onEnum|
   Script=#23:Sub doWork(Data, Index)|18:strComputer = "." |74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootCIMV2")|17:Select Case Index|30:   Case "doEnum"              |84:        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive",,48) |37:        For Each objItem in colItems |109:            sys.onEnum objItem.Index & "*" & objItem.Model & "_" & objItem.InterfaceType & "*"& objItem.Size |19:        Next       |10:End Select|8:End Sub |
   UseName=0
   link(onEnum,3218435:doCompare,[(79,83)(79,34)])
  }
  Add(StrMask,3218435,84,28)
  {
   Mask="#*#"
   link(onTrue,16402049:doReplace,[])
  }
  Add(Replace,16402049,133,35)
  {
   SubStr=" Device_USB"
   link(onReplace,5227468:doReplace,[])
  }
  Add(Replace,5227468,175,35)
  {
   SubStr="USB HDD"
   DestStr="HDD"
   link(onReplace,1305558:doReplace,[])
  }
  Add(Replace,1305558,217,35)
  {
   SubStr=" "
   DestStr="_"
   link(onReplace,13409609:doReplace,[])
  }
  Add(StrList,7707272,399,84)
  {
   link(onChange,1564870:In,[])
  }
  Add(ArrayRW,16301400,413,189)
  {
   link(Array,11849849:Var2,[])
  }
  Add(GlobalVar,322712,406,35)
  {
   Name="3"
   link(onValue,2743408:onValue,[(536,41)(536,20)])
  }
  Add(MultiStrData,5951153,364,35)
  {
   Char="*"
   link(onPart1,322712:doValue,[])
  }
  Add(Hub,9481742,308,35)
  {
   link(onEvent1,5951153:doSplit,[])
   link(onEvent2,7036414:doSplit,[(424,48)(424,195)])
  }
  Add(Counter,4264522,238,182)
  {
   Default=-1
   link(onNext,14506248:doEvent1,[(282,188)(282,195)])
  }
  Add(If_else,12265681,182,182)
  {
   Type=4
   link(onTrue,4264522:doNext,[])
   link(Op1,12800764:Var2,[(188,169)(118,169)])
   link(Op2,7707272:Count,[(195,156)(412,156)])
  }
  Add(Timer,12694938,119,182)
  {
   Interval=1
   Enable=1
   Point(doAutoStop)
   link(onTimer,12265681:doCompare,[])
  }
  Add(If_else,15352859,35,189)
  {
   link(onTrue,117336:doEvent1,[])
   link(Op2,12800764:Var1,[(48,145)])
  }
  Add(Hub,14506248,294,189)
  {
   link(onEvent1,2757379:doEvent1,[])
   link(onEvent2,15352859:doCompare,[(321,202)(321,232)(27,232)(27,195)])
  }
  Add(LineBreak,16112821,63,168)
  {
   link(Out,12694938:doTimer,[(106,174)(106,188)])
   Primary=[1564870,413,-84]
  }
  Add(GetDataEx,12800764,112,140)
  {
  }
  Add(Hub,117336,84,189)
  {
   link(onEvent1,12694938:doStop,[])
   link(onEvent2,3300484:doData,[(110,202)(110,300)])
  }
  Add(DoData,3300484,266,294)
  {
   link(onEventData,14996395:doRead,[])
   link(Data,7962034:Value,[])
  }
  Add(Hub,2757379,357,189)
  {
   InCount=2
   OutCount=1
   link(onEvent1,16301400:doRead,[])
  }
  Add(Memory,7962034,266,238)
  {
   Default=Integer(0)
  }
  Add(ArrayRW,14996395,371,294)
  {
   link(onRead,2757379:doEvent2,[(415,300)(415,251)(345,251)(345,202)])
  }
  Add(GetDataEx,11849849,413,147)
  {
   link(Data,7707272:Array,[])
  }
  Add(Message,6218451,182,98)
  {
  }
  Add(Replace,13409609,259,35)
  {
   SubStr="_Disk_Device"
   link(onReplace,9481742:doEvent1,[])
  }
END_SDK
Add(MultiElementEx,7863514,224,147)
{
 link(onSplit,2724507:doEvent1,[])
 link(onRead,5349282:doCompare,[(267,160)(267,237)])
}
BEGIN_SDK
  Add(EditMultiEx,16692311,21,21)
  {
   WorkCount=#6:doEnum|
   EventCount=#7:onSplit|6:onRead|
   VarCount=#5:Part1|5:Part2|5:Part3|4:Item|
   Width=713
   Height=417
   link(doEnum,3749728:doEnum,[(28,27)])
   link(Part1,1744466:Part2,[(27,244)(370,244)])
   link(Part2,1834097:Part2,[(34,264)(307,264)])
   link(Part3,4032399:Var2,[(41,275)(314,275)])
   link(Item,5551163:Item,[(48,392)(566,392)])
  }
  Add(VBJScript,3749728,42,42)
  {
   WorkPoints=#6:doEnum|
   EventPoints=#6:onEnum|
   Script=#23:Sub doWork(Data, Index)|18:strComputer = "." |74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootCIMV2")|17:Select Case Index|30:   Case "doEnum"              |97:        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDiskToPartition",,48) |37:        For Each objItem in colItems |68:            sys.onEnum objItem.antecedent & "*" & objItem.dependent |16:            next|10:End Select|8:End Sub |
   UseName=0
   link(onEnum,9424673:doSplit,[])
  }
  Add(FormatStr,11127926,98,126)
  {
   Mask="%1*%2"
   link(onFString,9506417:doReplace,[])
   link(Str1,9424673:Part2,[])
   link(Str2,9424673:Part4,[(111,100)(118,100)])
  }
  Add(MultiStrPart,9424673,91,42)
  {
   Char="""
   Count=4
   link(onSplit,11127926:doString,[(135,48)(135,90)(86,90)(86,132)])
  }
  Add(Replace,9506417,140,126)
  {
   SubStr=", "
   DestStr="*"
   link(onReplace,14845057:doReplace,[])
  }
  Add(Replace,14845057,182,126)
  {
   SubStr=" #"
   DestStr="_"
   link(onReplace,8214309:doReplace,[])
  }
  Add(MultiStrPart,1834097,294,126)
  {
   Char="*"
   Count=3
   link(onSplit,1744466:doSplit,[])
  }
  Add(StrList,6948375,546,210)
  {
   Point(doSort)
   link(onChange,16732338:doNext,[(591,216)(591,268)(436,268)(436,293)])
   link(Str,4032399:Var3,[(552,194)])
  }
  Add(Hub,5396583,497,287)
  {
   link(onEvent1,16692311:onSplit,[(623,293)(623,27)])
   link(onEvent2,5551163:doRead,[(529,300)(529,321)])
  }
  Add(ArrayRW,5551163,560,315)
  {
   link(onRead,16692311:onRead,[(663,321)(663,34)])
   link(Array,6948375:Array,[])
  }
  Add(Counter,16732338,448,287)
  {
   Default=-1
   Point(Max)
   link(onNext,5396583:doEvent1,[])
   link(Max,6948375:Count,[(454,278)(559,278)])
  }
  Add(GetDataEx,4032399,308,189)
  {
   link(Data,1834097:Part3,[])
  }
  Add(Hub,5182735,504,210)
  {
   link(onEvent1,6948375:doAdd,[])
   link(onEvent2,6948375:doSort,[(532,223)(532,258)])
  }
  Add(MultiStrPart,1744466,357,126)
  {
   Char="_"
   link(onSplit,5182735:doEvent1,[(447,132)(447,216)])
   link(Str,1834097:Part1,[(363,114)(331,114)(331,170)(300,170)])
  }
  Add(Replace,8214309,238,126)
  {
   SubStr="Partition_"
   link(onReplace,1834097:doSplit,[])
  }
END_SDK
Add(FormatStr,13796357,329,231)
{
 DataCount=6
 Mask="%1*%2*%3*%4*%5*%6"
 link(onFString,7418859:сортировать,[])
 link(Str1,7863514:Part1,[(335,205)(230,205)])
 link(Str2,7863514:Part2,[(342,205)(237,205)])
 link(Str3,7863514:Part3,[(349,205)(244,205)])
 link(Str4,2626545:Part2,[])
 link(Str5,2626545:Result,[])
 link(Str6,2626545:Part4,[])
}
Add(FormatStr,10784747,224,105)
{
 DataCount=3
 Mask="%1*%2*%3"
 link(onFString,6896185:сортировать,[])
 link(Str1,2568328:Part1,[])
 link(Str2,2568328:Part2,[])
 link(Str3,2568328:Part3,[])
}
Add(FSMonitor,4506169,7,91)
{
 link(onDeviceArrival,16763324:doEvent1,[])
 link(onDeviceRemoveComplete,16763324:doEvent2,[])
}
Add(Hub,16763324,56,91)
{
 InCount=2
 OutCount=1
 link(onEvent1,1205844:doTimer,[])
}
Add(MultiElementEx,2626545,343,140)
{
}
BEGIN_SDK
  Add(EditMultiEx,16545166,21,21)
  {
   WorkCount=#7:doSplit|6:doRead|
   VarCount=#5:Part1|5:Part2|6:Result|5:Part4|
   Width=706
   Height=501
   link(doSplit,2572216:doEnum,[(39,27)(39,69)])
   link(doRead,7286963:doRead,[(29,34)(29,153)])
   link(Part1,2158965:Part1,[(27,219)(552,219)])
   link(Part2,2158965:Part2,[(34,246)(559,246)])
   link(Result,2897749:Result,[(41,302)(650,302)])
   link(Part4,2158965:Part4,[(48,350)(573,350)])
  }
  Add(Delete,14567673,602,259)
  {
   Count=9
   Direction=1
   link(onDelete,2897749:doStrCat,[])
   link(Str,2158965:Part3,[(608,233)(566,233)])
  }
  Add(StrCat,2897749,644,259)
  {
   Str2=".GB"
  }
  Add(MultiStrPart,2158965,546,147)
  {
   Char="*"
   Count=4
   link(onSplit,14567673:doDelete,[(590,153)(590,265)])
   link(Str,7286963:Item,[(552,135)(504,135)(504,192)(454,192)])
  }
  Add(VBJScript,2572216,56,63)
  {
   WorkPoints=#6:doEnum|
   EventPoints=#6:onEnum|
   Script=#23:Sub doWork(Data, Index)|18:strComputer = "." |74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootCIMV2")|17:Select Case Index|30:   Case "doEnum"              |86:        Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) |37:        For Each objItem in colItems |110:            sys.onEnum objItem.Name & "*" & objItem.FileSystem & "*" & objItem.Size & "*" & objItem.VolumeName|19:        Next       |10:End Select|8:End Sub |
   UseName=0
   link(onEnum,3696901:doEvent1,[])
  }
  Add(MultiElementEx,2142523,476,483)
  {
  }
  BEGIN_SDK
    Add(EditMultiEx,10112950,21,21)
    {
     WorkCount=#8:doEvent1|
     EventCount=#8:onEvent1|
     Width=629
     Height=403
     link(doEvent1,3696901:doEvent1,[(105,27)(105,160)])
    }
    Add(Case,8564394,350,126)
    {
     Value=String(*NTFS)
     Point(doDataOnTrue)
     link(onTrue,10289617:doEvent1,[(411,139)(411,174)])
    }
    Add(Case,9409125,350,203)
    {
     Value=String(*FAT32)
     Point(doDataOnTrue)
     link(onTrue,10289617:doEvent2,[(411,216)(411,181)])
    }
    Add(Hub,10289617,427,168)
    {
     InCount=2
     OutCount=1
     link(onEvent1,10112950:onEvent1,[(545,174)(545,27)])
    }
    Add(Hub,5648061,238,119)
    {
     link(onEvent1,8564394:doDataOnTrue,[(326,125)(326,139)])
     link(onEvent2,13328001:doSearch,[])
    }
    Add(BlockFind,13328001,280,126)
    {
     StartBlock="*"
     EndBlock="S"
     link(onSearch,8564394:doCase,[])
    }
    Add(Hub,3696901,189,154)
    {
     link(onEvent1,5648061:doEvent1,[(227,160)(227,125)])
     link(onEvent2,15857696:doEvent1,[(227,167)(227,202)])
    }
    Add(Hub,15857696,238,196)
    {
     link(onEvent1,9409125:doDataOnTrue,[(326,202)(326,216)])
     link(onEvent2,5740600:doSearch,[])
    }
    Add(BlockFind,5740600,280,203)
    {
     StartBlock="*"
     EndBlock="2"
     link(onSearch,9409125:doCase,[])
    }
  END_SDK
  Add(ArrayRW,7286963,448,147)
  {
   link(onRead,2158965:doSplit,[])
   link(Array,8369715:Array,[])
  }
  Add(StrList,8369715,434,77)
  {
   Point(doSort)
  }
  Add(Hub,3232054,399,77)
  {
   link(onEvent1,8369715:doAdd,[])
   link(onEvent2,8369715:doSort,[(423,90)(423,125)])
  }
  Add(Case,8564394,273,42)
  {
   Value=String(*NTFS)
   Point(doDataOnTrue)
   link(onTrue,10289617:doEvent1,[(334,55)(334,83)])
  }
  Add(Case,9409125,273,91)
  {
   Value=String(*FAT32)
   Point(doDataOnTrue)
   link(onTrue,10289617:doEvent2,[(334,104)(334,90)])
  }
  Add(Hub,10289617,350,77)
  {
   InCount=2
   OutCount=1
   link(onEvent1,3232054:doEvent1,[])
  }
  Add(Hub,5648061,161,35)
  {
   link(onEvent1,8564394:doDataOnTrue,[(249,41)(249,55)])
   link(onEvent2,13328001:doSearch,[])
  }
  Add(BlockFind,13328001,203,42)
  {
   StartBlock="*"
   EndBlock="S"
   link(onSearch,8564394:doCase,[])
  }
  Add(Hub,3696901,112,63)
  {
   link(onEvent1,5648061:doEvent1,[(150,69)(150,41)])
   link(onEvent2,15857696:doEvent1,[(150,76)(150,90)])
  }
  Add(Hub,15857696,161,84)
  {
   link(onEvent1,9409125:doDataOnTrue,[(249,90)(249,104)])
   link(onEvent2,5740600:doSearch,[])
  }
  Add(BlockFind,5740600,203,91)
  {
   StartBlock="*"
   EndBlock="2"
   link(onSearch,9409125:doCase,[])
  }
END_SDK
Add(If_else,5349282,280,231)
{
 link(onTrue,13796357:doString,[])
 link(Op1,7863514:Item,[(286,205)(251,205)])
 link(Op2,2626545:Part1,[(293,198)(349,198)])
}
Add(Hub,16462877,182,140)
{
 link(onEvent1,2626545:doSplit,[])
 link(onEvent2,7863514:doEnum,[])
}
Add(MultiElementEx,7418859,399,231)
{
 @Color=16755370
 link(результат,12028807:doEvent1,[])
}
BEGIN_SDK
  Add(EditMultiEx,7164467,21,21)
  {
   WorkCount=#11:сортировать|
   EventCount=#9:результат|
   Width=433
   Height=312
   link(сортировать,3232054:doEvent1,[(123,27)(123,97)])
  }
  Add(ArrayRW,7286963,273,161)
  {
   link(onRead,15661574:doEvent1,[])
   link(Array,8369715:Array,[])
  }
  Add(StrList,8369715,259,91)
  {
   Point(doSort)
   link(onChange,359853:doTimer,[(306,97)(306,150)(169,150)(169,167)])
  }
  Add(Hub,3232054,224,91)
  {
   link(onEvent1,8369715:doAdd,[])
   link(onEvent2,8369715:doSort,[(248,104)(248,139)])
  }
  Add(Counter,4380485,231,161)
  {
   Default=-1
   link(onNext,7286963:doRead,[])
  }
  Add(Timer,359853,182,161)
  {
   Interval=100
   Enable=1
   Point(doAutoStop)
   link(onTimer,4380485:doNext,[])
  }
  Add(Math,8812734,126,175)
  {
   Op2=1
   link(onResult,359853:doAutoStop,[])
   link(Op1,8369715:Count,[(132,156)(272,156)])
  }
  Add(Hub,15661574,322,161)
  {
   link(onEvent1,7164467:результат,[(395,167)(395,27)])
   link(onEvent2,8812734:doOperation,[(344,174)(344,216)(114,216)(114,181)])
  }
END_SDK
Add(MultiElementEx,6896185,399,105)
{
 @Color=16755370
 link(результат,13614698:doSplit,[])
}
BEGIN_SDK
  Add(EditMultiEx,7164467,21,21)
  {
   WorkCount=#11:сортировать|6:doRead|
   EventCount=#9:результат|
   Width=741
   Height=550
   link(сортировать,3232054:doEvent1,[(126,27)(126,97)])
   link(doRead,5070164:doCompare,[(66,34)(66,377)])
  }
  Add(ArrayRW,7286963,280,161)
  {
   link(onRead,15661574:doEvent1,[])
   link(Array,8369715:Array,[])
  }
  Add(StrList,8369715,266,91)
  {
   Point(doSort)
   link(onChange,359853:doTimer,[(313,97)(313,150)(141,150)(141,167)])
  }
  Add(Hub,3232054,231,91)
  {
   link(onEvent1,8369715:doAdd,[])
   link(onEvent2,8369715:doSort,[(255,104)(255,139)])
  }
  Add(Counter,4380485,203,161)
  {
   Default=-1
   link(onNext,7286963:doRead,[])
  }
  Add(Timer,359853,154,161)
  {
   Interval=0
   Enable=1
   Point(doAutoStop)
   link(onTimer,4380485:doNext,[])
  }
  Add(Math,8812734,91,175)
  {
   Op2=1
   link(onResult,359853:doAutoStop,[])
   link(Op1,8369715:Count,[(97,156)(279,156)])
  }
  Add(Hub,15661574,329,161)
  {
   link(onEvent1,10867028:doEvent1,[])
   link(onEvent2,8812734:doOperation,[(351,174)(351,216)(86,216)(86,181)])
  }
  Add(ArrayRW,564480,448,371)
  {
   link(onRead,1644537:doEvent2,[])
   link(Array,16201937:Array,[])
  }
  Add(If_else,5070164,196,371)
  {
   Type=2
   link(onTrue,5895150:doData,[])
   link(Op2,16201937:Count,[(209,275)(447,275)])
  }
  Add(StrList,16201937,434,196)
  {
   Point(doSort)
   Point(IdxToSelect)
  }
  Add(Memory,5038518,322,301)
  {
   Default=Integer(0)
   Point(Data)
  }
  Add(DoData,5895150,322,371)
  {
   link(onEventData,564480:doRead,[])
   link(Data,5038518:Value,[])
  }
  Add(Hub,10867028,399,161)
  {
   link(onEvent1,1644537:doEvent1,[(500,167)(500,370)])
   link(onEvent2,16201937:doAdd,[(420,174)(420,202)])
  }
  Add(Hub,1644537,539,364)
  {
   InCount=2
   OutCount=1
   link(onEvent1,4535613:сортировать,[])
  }
  Add(MultiElementEx,4535613,588,364)
  {
   @Color=16755370
   link(результат,7164467:результат,[(740,370)(740,27)])
  }
  BEGIN_SDK
    Add(EditMultiEx,7164467,21,21)
    {
     WorkCount=#11:сортировать|
     EventCount=#9:результат|
     Width=433
     Height=312
     link(сортировать,3232054:doEvent1,[(123,27)(123,97)])
    }
    Add(ArrayRW,7286963,273,161)
    {
     link(onRead,15661574:doEvent1,[])
     link(Array,8369715:Array,[])
    }
    Add(StrList,8369715,259,91)
    {
     Point(doSort)
     link(onChange,359853:doTimer,[(306,97)(306,150)(169,150)(169,167)])
    }
    Add(Hub,3232054,224,91)
    {
     link(onEvent1,8369715:doAdd,[])
     link(onEvent2,8369715:doSort,[(248,104)(248,139)])
    }
    Add(Counter,4380485,231,161)
    {
     Default=-1
     link(onNext,7286963:doRead,[])
    }
    Add(Timer,359853,182,161)
    {
     Interval=40
     Enable=1
     Point(doAutoStop)
     link(onTimer,4380485:doNext,[])
    }
    Add(Math,8812734,126,175)
    {
     Op2=1
     link(onResult,359853:doAutoStop,[])
     link(Op1,8369715:Count,[(132,156)(272,156)])
    }
    Add(Hub,15661574,322,161)
    {
     link(onEvent1,7164467:результат,[(395,167)(395,27)])
     link(onEvent2,8812734:doOperation,[(344,174)(344,216)(114,216)(114,181)])
    }
  END_SDK
END_SDK
Add(Hub,2724507,294,147)
{
 link(onEvent1,2626545:doRead,[])
 link(onEvent2,5285392:doOperation,[(318,160)(318,217)(219,217)(219,300)])
}
Add(Timer,4052012,280,280)
{
 Interval=0
 Enable=1
 Point(doAutoStop)
 link(onTimer,13098093:doNext,[])
}
Add(CounterEx,13098093,329,280)
{
 link(onNext,6896185:doRead,[(380,286)(380,118)])
}
Add(Math,5285392,231,294)
{
 Op2=1
 link(onResult,4052012:doAutoStop,[])
}
Add(MultiElementEx,13614698,539,105)
{
}
BEGIN_SDK
  Add(EditMultiEx,16545166,21,21)
  {
   WorkCount=#7:doSplit|6:doRead|
   VarCount=#5:Part1|5:Part2|6:Result|
   Width=706
   Height=501
   link(doSplit,3232054:doEvent1,[(210,27)(210,83)])
   link(doRead,7286963:doRead,[(29,34)(29,153)])
   link(Part1,2158965:Part1,[(27,219)(552,219)])
   link(Part2,2158965:Part2,[(34,246)(559,246)])
   link(Result,2897749:Result,[(41,302)(650,302)])
  }
  Add(Delete,14567673,602,259)
  {
   Count=9
   Direction=1
   link(onDelete,2897749:doStrCat,[])
   link(Str,2158965:Part3,[(608,233)(566,233)])
  }
  Add(StrCat,2897749,644,259)
  {
   Str2=".GB"
  }
  Add(MultiStrPart,2158965,546,147)
  {
   Char="*"
   Count=3
   link(onSplit,14567673:doDelete,[(590,153)(590,265)])
   link(Str,7286963:Item,[(552,135)(504,135)(504,192)(454,192)])
  }
  Add(ArrayRW,7286963,448,147)
  {
   link(onRead,2158965:doSplit,[])
   link(Array,8369715:Array,[])
  }
  Add(StrList,8369715,434,77)
  {
   Point(doSort)
  }
  Add(Hub,3232054,399,77)
  {
   link(onEvent1,8369715:doAdd,[])
   link(onEvent2,8369715:doSort,[(423,90)(423,125)])
  }
END_SDK
Add(MultiElementEx,12028807,455,231)
{
 link(onEvent1,13614698:doRead,[(509,237)(509,118)])
 link(onTrue,13433707:doString,[(506,244)(506,293)])
 link(Op2,13614698:Part1,[(461,184)(545,184)])
}
BEGIN_SDK
  Add(EditMultiEx,2344554,21,21)
  {
   WorkCount=#8:doEvent1|
   EventCount=#8:onEvent1|6:onTrue|
   VarCount=#5:Part2|6:Part21|6:Part22|5:Part4|5:Part5|5:Part6|
   DataCount=#3:Op2|
   Width=531
   Height=389
   link(doEvent1,5182735:doEvent1,[(95,27)(95,97)])
   link(Part2,1834097:Part3,[(27,319)(307,319)])
   link(Part21,15080457:Var1,[(34,240)])
   link(Part22,1834097:Part2,[(41,319)(300,319)])
   link(Part4,1834097:Part4,[(48,319)(314,319)])
   link(Part5,1834097:Part5,[(55,319)(321,319)])
   link(Part6,1834097:Part6,[(62,319)(328,319)])
  }
  Add(StrList,6948375,210,91)
  {
   Point(doSort)
   link(onChange,16732338:doNext,[(255,97)(255,149)(100,149)(100,174)])
  }
  Add(Hub,5396583,161,168)
  {
   link(onEvent1,2344554:onEvent1,[(363,174)(363,27)])
   link(onEvent2,5551163:doRead,[(193,181)(193,202)])
  }
  Add(ArrayRW,5551163,224,196)
  {
   link(onRead,1834097:doSplit,[])
   link(Array,6948375:Array,[])
  }
  Add(Counter,16732338,112,168)
  {
   Default=-1
   Point(Max)
   link(onNext,5396583:doEvent1,[])
   link(Max,6948375:Count,[(118,159)(223,159)])
  }
  Add(Hub,5182735,168,91)
  {
   link(onEvent1,6948375:doAdd,[])
   link(onEvent2,6948375:doSort,[(196,104)(196,139)])
  }
  Add(If_else,1912456,378,196)
  {
   link(onTrue,2344554:onTrue,[(481,202)(481,34)])
   link(Op1,15080457:Var3,[(384,184)(338,184)(338,240)(338,240)])
   link(Op2,2344554:Op2,[(391,48)(27,48)])
  }
  Add(MultiStrPart,1834097,287,196)
  {
   Char="*"
   Count=6
   link(onSplit,1912456:doCompare,[])
  }
  Add(GetDataEx,15080457,287,235)
  {
   link(Data,1834097:Part1,[])
  }
END_SDK
Add(FormatStr,13433707,525,287)
{
 DataCount=8
 Mask="%1*%2_%3*%4*%5*%6_%7*%8"
 link(onFString,3086552:doAdd,[])
 link(Str1,12028807:Part2,[(531,275)(461,275)])
 link(Str2,12028807:Part21,[(538,275)(468,275)])
 link(Str3,12028807:Part22,[(545,275)(475,275)])
 link(Str4,13614698:Part2,[])
 link(Str5,12028807:Part4,[(559,275)(482,275)])
 link(Str6,12028807:Part5,[(566,275)(489,275)])
 link(Str7,13614698:Result,[(573,212)(559,212)])
 link(Str8,12028807:Part6,[(580,275)(496,275)])
}
Add(Timer,1205844,84,91)
{
 Interval=200
 Enable=1
 AutoStop=1
 link(onTimer,10825987:doEvent2,[(128,97)(128,69)(86,69)(86,41)])
}
Add(Button,1319905,7,140)
{
 Left=495
 Top=210
 Width=110
 Caption="Обновить"
 link(onClick,10825987:doEvent3,[(66,146)(66,48)])
}
Add(Hub,10825987,98,28)
{
 InCount=3
 link(onEvent1,3731874:In,[(119,34)(119,27)])
 link(onEvent2,11629614:doEvent1,[])
}
Add(LineBreak,5923430,623,294)
{
 link(Out,3086552:doClear,[])
 Primary=[3731874,-497,-273]
}



лучше не получается чем можете помочь.
карма: 0

0
файлы: 1code_26902.txt [20.8KB] [184]
Ответов: 3889
Рейтинг: 362
#11: 2012-02-17 10:37:26 ЛС | профиль | цитата
mestnyi, можно кратко объяснить, о чём речь, и маленькую схему приложить, наглядно иллюстрирующую проблему
карма: 1

0
Ответов: 216
Рейтинг: -4
#12: 2012-02-17 16:50:23 ЛС | профиль | цитата
1nd1g0 , не могу связать диски. Допустим у меня физических диска 2 а логических 5 получается два названия и пять букв как их связать 
Add(MainForm,2953706,21,105){
 link(onCreate,9037888:doEnum,[])
}
Add(VBJScript,9037888,161,119)
{
 WorkPoints=#6:doEnum|
 EventPoints=#6:onEnum|
 Script=#23:Sub doWork(Data, Index)|18: Select Case Index|18:   Case "doEnum"  |3:   |61:Set objWMIService = GetObject("winmgmts:\\." & "\root\CIMV2")|6:      |80:     For Each obj in objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk") |31:            sys.onEnum obj.Name|18:        Next      |77:     For Each obj in objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")|32:            sys.onEnum obj.Model|13:        Next |14:              |10:End Select|8:End Sub |
 UseName=0
 link(onEnum,15612168:doAdd,[])
}
Add(Memo,15612168,252,119)
{
 Left=250
 Top=115
 Align=5
}
------------ Дoбавленo в 16.50:[/color][/size]1nd1g0 , А вот такое можно-ли реализовать на VBScript. Вот пример на power shell показывает как мне нужно 
foreach ($Drive in Get-WmiObject win32_diskDrive ){
    foreach ($Partition in gwmi -query ('associators of {win32_diskdrive.deviceid="'+$Drive.deviceid.replace('\','\\')+'"} where assocclass = win32_diskDriveToDiskPartition'))
    {
        foreach ($Disk in gwmi -query ('associators of {win32_diskpartition.deviceid="'+$Partition.deviceID+'"} where assocclass = win32_logicalDiskToPartition'))
        {
           write-host "$($Disk.DeviceID)*$($Disk.FileSystem)*$($Drive.caption)*$($Disk.Size)_$($Drive.Size)*$($Disk.VolumeName)*$($Partition.name)*$($Partition.BootPartition) "
        }
    }
}
powershell
а как в hiasm внедрит не знаю
карма: 0

0
файлы: 1code_26910.txt [747B] [95]
Ответов: 70
Рейтинг: 1
#13: 2014-04-01 23:39:59 ЛС | профиль | цитата
Этот топик выпрыгивает первым, когда я гуглю свою проблемму, а потому и спрошу здесь.
У каждого диска (HDD/USB-Flash....) есть такое свойство как номер диска. Или словами DeviceID.
Если в консоли выполнить команду wmic diskdrive list brief /format:list, то увидим для дисков примерно такой список

Caption=WDC WD20EFRX-68AX9N0 ATA Device
DeviceID=\.PHYSICALDRIVE0
Model=WDC WD20EFRX-68AX9N0 ATA Device
Partitions=3
Size=2000396321280


Caption=Kingston DataTraveler 2.0 USB Device
DeviceID=\.PHYSICALDRIVE1
Model=Kingston DataTraveler 2.0 USB Device
Partitions=1
Size=31437020160

И так далее..

Потребовалось реализовать такой модуль. В форме есть список всех доступных ЛОГИЧЕСКИХ дисков (DriveBox). Пользователь выбирает из списка логический диск - ему в MessageBox выдается этот самый DeviceID выбранного диска.
Запилил пока на основе консольной wmic формирование списка ФИЗИЧЕСКИХ дисков с выводом DeviceID.
Очень хочу отвязать программу от использования wmic вообще (первоочередная цель) и очень хочется, всё-таки, список сделать с логическими дисками (тоесть использовать DriveBox)
Прикрепляю свою поделку для ознакомления
code_33335.txt
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#14: 2014-04-02 13:47:31 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-12 08:54:35
карма: 0

0
Ответов: 70
Рейтинг: 1
#15: 2014-04-02 14:22:45 ЛС | профиль | цитата
И где ночные сборки качают - не в курсе и обновившись через SVN компонента не нашел... =(
карма: 0

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