PureBoard

Code: Alles auswählen

Set Sessions = System.Sessions

 For i = 1 To Sessions.Count
  
  If Not Sessions(i) Is Nothing Then
     
   If UCase(Trim(Sessions(i).Name)) = UCase(Trim(Host)) Then
   
    Select Case UCase(Trim(Sessions(i).Name))
    
     Case "A19"
      
      Set SessionA19 = Sessions(i)
      SessionA19.Screen.row = 9
      SessionA19.Screen.Col = 40
      SessionA19.Screen.SendKeys ("A19")
      Exit For
     
     Case "A20"
     
      Set SessionA20 = Sessions(i)
      SessionA20.Screen.row = 9
      SessionA20.Screen.Col = 40
      SessionA197.Screen.SendKeys ("A20")
      Exit For
    
    Case Default
     
     MsgBox "La session " + Host + " n'existe pas"
    
    End Select
   
   End If
   
  End If
 
 Next

Code: Alles auswählen

Define System.l
Define Sessions.l
Define Count.l
Define Result.s
System = dhCreateObject("Extra.System") 
Sessions = dhCreateObject("Extra.Sessions") 

dhGetValue("%d", @Count, Sessions, ".count") 
Result = Space(100)

For i = 1 To Count 

 dhGetValue("%T", @Name, Sessions, ".item(%d)", i) 

 If Name 
  
  Select Name
   
   Case "A19"
    
    Set SessionA19 = Sessions(i) ; Wie diese Zeile ersetzen ??

    dhPutValue(SessionA19, ".Screen.Row = %d", 8) 
    dhPutValue(SessionA19, ".Screen.Col = %d", 6)  
    dhCallMethod(SessionA19, ".Screen.SendKeys(%T)", "A19")  
    dhFreeString(Name) 
   
   Case "A20"

    Set SessionA20 = Sessions(i)  ; Wie diese Zeile ersetzen ??

    dhPutValue(SessionA20, ".Screen.Row = %d", 8) 
    dhPutValue(SessionA20, ".Screen.Col = %d", 6)  
    dhCallMethod(SessionA20, ".Screen.SendKeys(%T)", "A20")  
    dhFreeString(Name) 
   
  EndSelect
   
 EndIf 

Next

Code: Alles auswählen

dhGetValue("%o", @SessionA19, Sessions, ".item(%d)", i)