Új hozzászólás Aktív témák
-
ArchElf
addikt
Gyors VBScript kérdés...
Csináltam egy kicsi osztályt (alant), és egy Hastable-be bepakolom (tudom talán kicsit meredek). A problémám az, hogy az egyik függvényt nem hajlandó meghívni a futtatókörnyezet...
Osztály:
Class RelStore
'Cache Time 5 min
Private d_Timer
Private b_Member
Private b_Init
Private VALIDITY
Private Sub Class_Initialize
VALIDITY = 300
d_Timer = 0
b_Member = False
b_Init = False
End Sub
Public Function Initialize(Membership)
d_Timer = Timer
b_Member = Membership
b_Init = True
End Function
Public Sub Invalidate()
Class_Initialize
End Sub
Public Function IsMember()
IsMember = b_Member
End Function
Public Function IsValid()
IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
End Function
End ClassAhol kicsomagolnám a Hastable-ből:
If htCache.ContainsKey(SearchString) Then
Set rs = htCache(SearchString)
If rs.IsValid Then
IsMember = rs.IsMember
Else
IsMember = False
htCache.Remove SearchString
End If
Else
DebugWrite "Object NOT found in cache: " & SearchString
End IfHibaüzenet:
An error occurred on line 97 while executing script 'User Group Check'
Source: Microsoft VBScript runtime error
Description: Object doesn't support this property or method: 'rs.IsValid'Ja és próbáltam már így is
Public Property Get IsValid
IsValid = (b_Init AND ((Timer > d_Timer + VALIDITY) OR (Timer < d_Timer)))
End PropertyAE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
Új hozzászólás Aktív témák
- Politika
- Motoros topic
- MILC felhasználók szakmai topikja
- Asztalos klub
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- TABLET / TARTOZÉK beárazás
- Xiaomi Mi Band 5 - bálványok alkonya
- NVIDIA GeForce RTX 4060 / 4070 S/Ti/TiS (AD104/103)
- iPhone topik
- További aktív témák...
- LE NE MARADJ RÓLA! Lenovo Thinkpad P53s, i7-8665U, 32GB/512GB, FHD/IPS, NVIDIA, garancia!
- Bomba ár! Lenovo IdeaPad B50-50 - i3-5GEN I 4GB I 500GB I 15,6" I HDMI I Cam I W10 I Garancia!
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 256SSD I 13,3" I HDMI I Cam I W11 I Gari!
- Bomba ár! Dell Latitude 3190 - N5030 I 8GB I 128GB SSD I 11,6" HD I HDMI I Cam I W11 I Garancia!
- Bomba ár! Dell Latitude E7450 - i5-5GEN I 8GB I 500GB I 14" HD I HDMI I Cam I W10 I Garancia!