Imports system.diagnostics
Public Class Fsvcommon
'********************************************************** ******************************************* Function: Close the specified process' Parameters: ProcessName: Process Name Return Value: No 'Upload Time: 2005/04/18' ************************************ *********************************************************** ************* Public Shared Function KillProcess (Byval ProcessName As String) DIM PPROCESS () AS Process 'Process Sequence Dim MyProcess AS Process'
PPRocess = process.getProcess = process.getProcessesbyName (ProcessName) 'Find the specified process for Each MyProcess in pprocess myprocess.kill () Next End function' ******************************** *********************************************************** *******************> Function: Calculate the length (web) 'parameter of the specified string: txtString: Specify string' Return Value: length 'Upload time: 2005 / 04/18 '************************************************************** ************************************************************************* Private function GetLength (Byval txtString as string) AS INTEGER DIM TEXTLENGTH AS INTEGER 'String Length TextLength = TXTString.Length = TXTSTRINGTLENGTH
DIM I as integer 'cycle variable
For i = 0 to txtString.Length - 1 'is a full-horn character to determine if NOT (0 <= ASC (TXTString.Substring (i, 1)) _ And ASTSTRING.SUBSTRING (I, 1)) <= 255 ) And _ not (65377 <= ASC (txtString.Substring (i, 1)) _ And ASTRING.SUBSTRING (I, 1)) <= 65439) THEN TEXTLENGTH = TEXTLENGTH 1 End if Next
Return textLength End Function '********************************************************** *********************************************** 'Features : Save the page DIV scroll bar (web) 'parameter: DividArray: Div list' PageObj: No 'Upload Time: 2005/04/23' Note: Announced with RestoredivScrollPosition. Use the page to reference JS Text '********************************************************** ****************************************************** Public Shared Sub SavedivScrollPosition (ByVal) DividArray As string, byval objpage as page) Dim SavescrollPosition As String Dim I as integer Dim Divid () AS Stringdivid = DividArray.split (",")
For i = 0 to Divid.Length - 1 Objpage.RegisterHiddenfield (Divid (i) & "__scrollpos", Objpage.Request.form (Divid (i) & "__scrollpos))))
