|
|
Does anyone have a code for VB program to set the time example 30 minutes could turn off the Internet (ADSL), much like internet cafes?
|
|
|
|
|
And you expect someone to just hand over their hard work for you to turn in as your own??
|
|
|
|
|
|
In that case, you'll be writing a proxy server. When a client connects to the proxy for the first time, you record the current time. Every time the client makes another request, you check the current time against the one that was recorded on first connection. Greater than 30 seconds? Don't forward the request to the destination server.
|
|
|
|
|
Cannot get instr function to work .net?
Using VB.net
For some reason, the 'instr' function and the 'string.indexof' is the same.
The problem is that one of the 2 string arguments, is a variable that is passed from the calling subroutine (not the literal characters) and it does not recognise the 'match'.
When I type in the literal characters with " " -- it works ok.
Here is a copy of the line that is not working.
'm' is the positional marker / 'largetxt' the body that is being searched and 'smalltxt' is the string that is being searched for.
intx = InStr(m, mainTxt, smallTxt)
The variable 'smallTxt' is the problem ---- if I have:
intx = InStr(m, mainTxt, "house") --- it works ok
Also ... same thing for:
intx = largeTxt.IndexOf(smallTxt, m)
Cheers
|
|
|
|
|
InStr is only there for converted VB6 code. It's been deprecated. Use string.IndexOf() instead.
Without seeing the contents of the variables, it's impossible to tell you why it isn't working with any confidence. These functions are case-sensitive, so that might be your problem, but...
|
|
|
|
|
Here is a sample for you...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim maintext As String
Dim smalltext As String
Dim foundpos As Integer
Dim startpos As Integer
startpos = 0
maintext = "Jack and Jill"
smalltext = "and"
foundpos = maintext.IndexOf(smalltext, startpos)
If foundpos > 0 Then
MsgBox("match found at character " & foundpos)
Else
MsgBox("no match found")
End If
End Sub
|
|
|
|
|
Thank you both .
It the 'indexof' function also not working .... it gives a true result may one time in 20 (when I know it is a true hit).
I think there may be a bug in vb.net. It doesn't matter what I do, it comes up with -1 all the time.
|
|
|
|
|
Is there an alternative method ?.... .... I could spend 5 years tyring to get this one working - it's driving me crazy.
|
|
|
|
|
Yes theres INSTR,
If INSTR(Look-in-this-string", "For-This-String") > 0 Then
'REM A Match Was Found
Else
'REM No_Match_Was_Found
End If
and if you assign the result to a variable then the variable will give you the position...
LocationId = INSTR(Look-in-this-string", "For-This-String")
If LocationId > 0 Then
'REM A Match Was Found
Else
'REM No_Match_Was_Found
End If
|
|
|
|
|
.NET is a widely used framework, and looking for the position in a string is something most of us do. If there was a bug, it'd be found by now.
For these types of bugs, the answer is that "SELECT is not broken".
|
|
|
|
|
Did you try the code portion i added in my thread?
I tested it and it works fine...
obviously we can see the word AND is in the string JACK AND JILL.....
It makes me wonder what the ACTUAL strings are that you are comparing.
Maybe you could add them in a thread?
Its highly unlikely that the IndexOf method/function isnot working!
Its quite possible though that your installation of the development environment may have a corrupted file and possibly the next step would be to uninstall and re-install it again.
Still though, maybe you could save some time by adding your strings which your using in the comparision or even to upload the ACTUAL code block which is causing the offence?
Also, if your searching for a single character without specifying the number of consecutive characters to search, then the character must be in UNICODE, maybe that is of relavance?
Finally IndexOf is Zero based, so the FIRST character is position 0 then increases upwards, meaning it does not start with 1 but with zero.
Looking at the string "JACK AND JILL" and searching for a match of "AND" the code block I gave you states a match is found at charcter position 5, which taking it from a zero based index is ACTUALLY chracter 6 when starting from 1...
So maybe as a last resort you could subtract one from your start point (or start at zero anyway) and look for a match you KNOW exists in your string.
|
|
|
|
|
I'll go so far as to guarantee that there is no bug in INSTR or IndexOf.
It may be a match to you, but the function is telling you otherwise.
Without seeing REAL examples of the strings you are searching and the strings you are searching for in them, it's impossible to tell you why you think they work and the computer is saying they don't.
|
|
|
|
|
Is this a "case" problem?
Try converting both strings to either all upper or all lower case:
largeTxt.tolower.IndexOf(smallTxt.tolower, m)
|
|
|
|
|
I have created a dll named myInterface.DLL that interfaces between my application and a 3rd party application. To do this I Added a reference to their Interop.3rdParty.dll and added an “Imports 3rdParty”. Everything works great. They released version 2 of the 3rd party app and added renamed their interops and name spaces. So What I am forced to do is create a new dll, myInterface_V2.DLL. This DLL is an exact copy of the myInterface.DLL with the exception of the what dll’s are referenced and the Imports directive changed to “Import CompanyName.3rdParty “ . Inside my DLL’s I have 3 forms and 2 Classes and as I stated above the only the only difference between my 2 dll’s is the “Imports” statement. So now my calling application checks to see what version of the 3rd party app the user has and calls the appropriate form in the appropriate DLL. So my question Without duplication the 3 forms and 2 classes is there a way to dynamically change the “Imports” statement, or can anyone suggest a way of doing this where I do not have so much duplicate code. I am hating the fact that every time I update the dll I have to duplicate it somewhere else. This is a vb.net dll and I am using VS2010 and a Windows 7 box.
Thanks in advance
Paul
-- modified 18-Dec-12 16:40pm.
|
|
|
|
|
You can't change the references during runtime, but you can load another assembly, load it's types and use them. Google for "reflection" and "Assembly.Load", there should be some examples out there.
|
|
|
|
|
Hello all,
I made 2 scripts under, the first for search all folders and subfolders (named "prive") in my R: Drive and the second for search security groups(begin by FR_DEPT ou LTGFR) on a folder.
I want to concatenate scripts for each "prive" folder, it could search if groups are affected.
Can you help me please?
Thanks in advance
'------------------------------------- 1er script
Option Explicit
Dim path_start
Dim subfolder
Dim Myfso, result
Set Myfso = CreateObject("Scripting.FileSystemObject")
path_start = "R:"
subfolder = "prive"
result = Find(path_start, subfolder)
Function Find (strPath, strFileName)
Dim MyDir, MyFile, MySubDir
Dim strResult
If strFileName = Empty Then Exit Function
strFileName = Ucase(strFileName)
Set MyDir = Myfso.GetFolder(strPath)
For Each MyFile In MyDir.subFolders
If Ucase(MyFile.Name) = strFileName Then strResult = strResult & strPath & "\" & MyFile.Name & vbCrLf
Next
For Each MySubDir In MyDir.SubFolders
strResult = strResult & Find(strPath & "\" & MySubDir.Name, strFileName)
Next
Find = strResult
End Function
'---------------------------------- 2eme script
strFolderName = "Le dossier prive de mon 1er script"
Const INPUT1_FILE_NAME = "c:\test1.txt"
Const FOR_READING = 1, FOR_WRITING = 2, FOR_APPEND = 8
Const OVER_WRITE_EXISTING = True
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(INPUT1_FILE_NAME, FOR_APPEND,true)
Set objWMIService = GetObject("winmgmts:")
Set objFolderSecuritySettings = _
objWMIService.Get("Win32_LogicalFileSecuritySetting='" & strFolderName & "'")
intRetVal = objFolderSecuritySettings.GetSecurityDescriptor(objSD)
intControlFlags = objSD.ControlFlags
arrACEs = objSD.DACL
For Each objACE in arrACEs
if Left(objACE.Trustee.Name,7) = "FR_DEPT" then
f.write(strFolderName & " ")
f.write(objACE.Trustee.Domain & "\" & objACE.Trustee.Name + VbCrLf)
WScript.Echo strFolderName
WScript.Echo objACE.Trustee.Domain & "\" & objACE.Trustee.Name
else
if Left(objACE.Trustee.Name,5) = "LTGFR" then
f.write(strFolderName & " ")
f.write(objACE.Trustee.Domain & "\" & objACE.Trustee.Name + VbCrLf)
WScript.Echo strFolderName
WScript.Echo objACE.Trustee.Domain & "\" & objACE.Trustee.Name
end if
end if
next
|
|
|
|
|
"Concatenating" won't do much good, you'll need to merge them and call one function from the other. Shouldn't be too hard if you wrote it.
|
|
|
|
|
Hello !
i have created an application in vb.net to send email , with system.net.mail. But now i want to make possible for users to select multiple attachment , to remove one or some attachment and after to send with "send" button.
Can someone give me an idea just for begin , how can i do to manage multiple attachment before send process , (add or remove attachment ...). is there any control that i can use to keep attachment just like in a true email program.
Thank you !
p.s i'm using devexpress in my application , so if there is a control that can help me ?
|
|
|
|
|
alejx wrote: But now i want to make possible for users to select multiple attachment , to remove one or some attachment and after to send with "send" button.
A listbox, with two buttons; one to add, one to remove. When adding, open a OpenFileDialog, and add the resulting path to the listbox.
When sending, iterate the paths in the listbox, and add those files to the message, one by one.
|
|
|
|
|
I would like to use the Roll Your Own MsgBox code. When I load the sln file and run, I get the message: A project with an Output Type of Class Library cannot be started directly.
I have not used Class Libraries before but want to learn. Can someone help me or direct me to a link I could read to learn more?
Thank you very much.
Carl
|
|
|
|
|
Its as it says you can't directly run a class library project.
You need to create a WinForms / WPF or ASP.NET project and reference your class library and implement what is required to run the code.
Lobster Thermidor aux crevettes with a Mornay sauce, served in a Provençale manner with shallots and aubergines, garnished with truffle pate, brandy and a fried egg on top and Spam - Monty Python Spam Sketch
|
|
|
|
|
A class library project creates a static or dynamic library, and contains classes and their associated methods and properties. In order to use these classes you need to create an executable which creates instances of the classes and calls their methods as appropriate. For a simple test of the classes you can just include them into your project.
One of these days I'm going to think of a really clever signature.
|
|
|
|
|
 HELLO GUYS OF PROGRAMMER
TO ASK YUO TO ME IS HONORABLE,IF YOU WILL TO HELP ME...
TO THE POINT MY PROBLEM
1.GIVE TO ME LINK OF TUTORIAL VB.NET 2010 FREE COMPLETE
2.TO CONNENT WITH DATABASE SERVER 2008 HOW TO DO IF i MAKE MISTAKE FROM OPEN PROJECT? 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
